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CARYSPEC 

A  FORTRAN  77  Program  For  Spectral  Data  Acquisition  And  Control  Of 
The  Varian  CARY  2390  UV-VIS-NTR  Spectrophotometer 

INTRODUCTION 

The  CARY  2300  and  2400  series  spectrophotometers  are  high  quality,  microprocessor 
controlled  analytical  instruments  intended  for  measurements  of  the  UV-Visible  and  Near  IR 
absorption  spectra  of  solids,  liquids  and  gases.  When  equipped  with  an  optional  IEEE-488 
standard  interface  these  instruments  and  their  accessories  are  programmable  by  an  external 
computer  system  enabling  acquisition  of  spectral  measurements  in  digital  form.  This  document 
describes  a  fully  tested  FORTRAN  77  program,  CARYSPEC,  designed  for  single  scan 
acquisition  of  spectra  from  a  CARY  2390  instrument  using  a  Hewlett-Packard  1000 
minicomputer  running  the  multi-user  Cl  shell  and  RTE-6/VM  operating  system.  The  program 
uses  very  few  machine  specific  functions  and  could  be  modified  easily  to  run  on  other  host 
systems  supporting  the  IEEE-488  interface  standard. 

CARYSPEC  implements  a  large  subset  of  the  programmable  instrument  control  functions 
of  the  CARY  2390  spectrophotometer  in  a  menu  driven  format  closely  resembling  the  menu 
displays  on  the  instrument.  Therefore,  no  special  training  is  required  for  users  already  familiar 
with  operation  of  the  instrument.  Indeed,  operation  from  a  computer  console  has  proven  to 
be  more  convenient  than  using  the  clumsy  keypad  on  the  instrument.  The  control  functions 
implemented  reproduce  the  facilities  of  the  spectrophotometer's  Instrument  Settings,  Baseline 
Setup,  Lamp  and  Detector  Modes  and  Accessory  Setup  menus,  as  well  as  a  number  of  single 
keypad  functions.  The  program  does  not  support  the  statistics  calculation  modes,  rapid  scan 
setup  keys  or  the  automatic  sequencer  operation  for  repetitive  scans.  The  latter  mode, 
although  useful,  is  not  compatible  with  reliable  IEEE-488  data  transmission.  A  future  version 
of  the  program  may  implement  this  feature  using  the  the  single  scan  mode  of  CARYSPEC 
with  automatic  data  file  storage  and  system  clock  control  of  the  timing  of  successive  scans. 

CARYSPEC  is  a  moderately  large  program  and  wiil  not  run  in  a  single  32K  word 
segment  of  the  Hewlett-Packard  1000  minicomputer.  The  program  has  been  segmented  to  run 
in  5  memory  resident  nodes  of  the  HP  1000  using  the  Multi  Level  Segmentation  utility 
programs  SGMTR  and  MLLDR.  The  program  requires  an  83K  word  memory  partition, 
including  40K  words  of  Extended  Memory  Addressing  (EMA)  space  for  data  arrays. 

Manuscript  approved  February  29,  1988. 
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IMPLEMENTATION 


1.0  Hardware  Interface: 

The  IEEE-488  interface  for  the  HP  1000  system  is  implemented  with  an  HP  5931  OB 
interface  card  which  utilizes  4  Logical  Unit  (LU)  addresses  in  the  system.  The  LU  addresses 
are  dependent  on  the  computer  system  and  are  defined  by  the  system  generation.  The 

interface  card  used  by  the  program,  CARYSPEC,  occupies  LU  addresses  35-38  corresponding 
to  card  addresses  0-3.  Address  0  is  a  special  addressing  mode  which  allows  access  to  low 
level  IEEE-488  bus  command  sequences  for  any  device  number.  Addresses  1-3  are  predefined 
automatic  READ/WRITE  ch.  iels  which  select  device  numbers  1-3  on  the  bus.  CARYSPEC 
uses  automatic  device  addressing  from  channel  3  (LU  38)  and  consequently  the  device  address 
of  the  CARY  2390  has  been  set  to  3.  Physical  connection  between  the  computer  and 

spectrophotometer  consists  of  5  metres  of  IEEE-488  standard  cabling.  Reliable  data 
transmission  was  obtained  with  cable  lengths  up  to  9  metres.  With  13  metres  of  cable 
commands  sent  to  the  CARY  2390  were  accepted  but  data  transmissions  from  the  CARY  2390 
spectrophotometer  were  corrupted  owing  to  the  limited  drive  capability  of  the  MC3447L  bus 
transceivers  in  the  CARY  2390.  The  bus  was  found  to  be  totally  inoperative  with  a  cable 
length  of  17  metres. 

1.1  System  Handshaking: 

The  IEEE-488  subsystem  of  the  HP  1000  is  operated  by  the  RTE  driver  DVA37 
configured  for  ASCII  Data  Record  mode.  This  mode  sends  and  expects  to  receive  an  End  Of 
Record  (EOR)  with  data  transmission  in  the  form  of  a  Carriage  Return/Line  Feed  (CR'LF) 
sequence,  though  Line  Feed  alone  is  sufficient.  The  CARY  2390  accepts  commands  in  this 
format  automatically.  However,  the  instrument  must  be  instructed  to  send  data  with  the 
CR/LF  trailer  using  the  command  "@@20",  sent  as  a  series  of  ASCII  characters  to  the 

instrument.  This  is  the  first  instrument  command  in  the  program  CARYSPEC  and  instructs  the 
CARY  2390  both  to  insert  CR  before  LF  on  transmissions  and  to  turn  off  check  sum  error 
detection.  Therefore,  all  commands  to  the  instrument  end  with  a  check  sum  byte  of  zero. 

Correctly  operating  IEEE-488  systems  do  not  require  check  sum  error  detection.  During  real 
time  spectral  data  transmission  the  CARY  spectrophotometer  is  the  active  talker  on  the  bus. 
The  End  Of  Record  character  for  this  mode  has  been  specified  as  a  Line  Feed  in 
CARYSPEC  -  this  works  without  a  CR,  as  expected  for  IEEE-488  handshaking.  Termination 
of  real  time  transmission  is  effected  by  the  active  controller  via  a  bus  level  routine  which 
sends  the  ASCII  codes  for  UNTALK/UNLISTEN. 
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1.2  Instrument  Commands  Format: 


Programmable  control  of  the  CARY  2300-2400  series  spectrophotometers  has  been 
implemented  by  Varian  Instruments  with  a  series  of  single  character  commands  in  ASCII 
code,  most  being  accompanied  by  following  characters  to  select  a  particular  setting  for  the 
command  selected.  The  instrument  generates  similar  reply  messages  to  most  commands  and 
these  character  strings  must  be  read  by  the  controller  before  sending  further  commands. 

Varian's  documentation  defines  the  command  structure  as  a  sequence  of  [ASCII] 
characters  in  the  following  format  (blanks  added  for  clarity): 

[LDI]  [MI]  [MD]  [MQ]  [CSM]  [EOI] 


where, 

[LDI]  =  Logical  Device  Identifier 

ASCII  representation  of  the  talk  address  of  the  sender  -  the  value  is  ignored  but 
some  character  must  be  sent  as  a  place  holde  .  {NOTE:  The  correct  character  for 
the  bus  controller  at  address  0  is 

[MI]  =  Message  Identifier 

ASCII  character  C,  P  or  N  used  to  indicate  the  message  type  as  Command, 
Positive  reply  or  Negative  Reply.  {NOTE:  This  character  field  is  actually  INVALID 
within  a  command  -  'C'  will  cause  a  system  reset  if  used}. 

[MD]  =  Message  Descriptor 

ASCII  character  which  specifies  the  actual  command  to  be  executed. 

[MQ]  =  Message  Qualifier 

A  string  of  characters  used  to  set  one  or  more  variables  or  operating  modes. 
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[CSM]  = 


Check  sum 


The  binary  sum  of  all  characters  in  a  particular  message  -  this  is  always  the  "0" 
character  since  checksum  mode  is  turned  off  normally. 

[EOI]  =  End  Or  Identify  (actually  End  Of  Record) 

A  linefeed  character  is  specified  as  the  terminator  character  to  end  data 
transmissions.  {NOTE:  This  is  appended  automatically  by  most  IEEE-488  drivers 
during  handshaking.} 

The  [MI]  field  given  in  the  message  structure  above  is  actually  invalid  within  a  command 
and  must  not  be  used  -  otherwise  command  'C\  system  reset,  will  be  executed  followed  by  a 
bus  hang  up  on  the  trailing  unused  command  characters.  However,  the  [Ml]  field  is  valid  in 
the  reply  messages  from  the  instrument. 

The  correct  COMMAND  format  is  given  by  the  following  fields: 

[LDI]  [MD]  [MQ]  [CSM]  [LF] 

EXAMPLE:  Send  the  Record  Trailer  Set-up  Command 
Command^  '@@20 ' 

WRITE  (UNIT  =38 ,FMT =10)  Command 
10  FORMAT  (A4) 

READ  (UNIT =38 ,FMT  =20 )  Reply 
20  FORMAT  (A64) 

where, 

@  =  [LDI]  address  of  bus  controller 
@  =  [MD]  command  for  record  trailer  set-up  command 
2  =  [MQ]  value  to  select  no  check  sum  (bit  1  =0),  insert  CR  before  LF 
0  =  [CSM]  check  sum  (off) 

LF  is  sent  automatically  with  WRITE  command 
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All  instrument  commands  sent  to  the  CARY  2390  by  an  external  computer  comprise  a 
sequence  of  ASCII  data  characters  as  far  as  the  IEEE-488  bus  is  concerned.  The  details  of 
the  handshaking,  with  talk  and  listen  addresses,  are  transparent  to  high  level  languages  such 
as  this  implementation  of  FORTRAN  77  where  such  details  are  handled  automatically  by  the 
device  driver  -  in  this  case  DVA37.  Unfortunately,  Varian  Instruments  chose  to  document  the 
software  control  of  the  2300  series  instruments  for  a  particular  dialect  of  BASIC  used  in  their 
proprietary  controller,  a  model  DS-15  data  station,  which  appears  to  operate  in  a  purely 
binary  mode  on  the  IEEE-488  bus.  Thus,  their  examples  of  the  message  structure  include  a 
line  feed  character  appended  to  the  actual  data  command  message.  Furthermore,  they  confuse 
this  End  Of  Record  character  (EOR)  with  the  title  of  the  End  Or  Identify  handshake  line  of 
the  IEEE-488  bus.  The  trailing  line  feed  character  is  omitted  from  all  instrument  commands 
in  the  program  CARYSPEC,  this  terminator  being  supplied  automatically  by  the  HP  1000 
driver  routine  using  the  standard  FORTRAN  output  command,  WRITE. 

While  the  reply  messages  generated  by  the  CARY  spectrophotometer  must  be  read,  only 
a  few  require  testing  for  negative  replies  in  a  correctly  structured  program.  CARYSPEC 
utilizes  tight  error  trapping  for  inappropriate  combinations  of  instrument  parameters, 
diminishing  the  need  for  extensive  use  of  the  error  message  numbers  from  the  instrument.  In 
fact,  only  the  Baseline  Set  Up  subroutine  checks  for  a  negative  reply  and  even  that  is 

probably  superfluous  since  illegal  combinations  of  operating  modes  are  trapped  before  calling 
this  routine.  Such  internal  errror  trapping  provides  a  smoother  user  interface  compared  with 
taking  corrective  action  after  rejection  of  bad  commands  by  the  instrument. 

The  full  range  of  instrument  commands  and  their  reply  formats  are  summarized  below  in 
Section  1.3.  Some  commands  can  be  accessed  only  using  the  'D'  command  to  mimic  key  pad 
presses  on  the  instrument.  These  often  involve  sequences  of  key  presses  to  implement  a  single 

function.  Table  I  contains  the  ASCII  codes  required  to  send  Key  Pad  entries  with  the  'D' 

command.  However,  full  familiarity  with  the  instrument  is  required  to  use  these  effectively. 
For  example,  the  Baseline  Set  Up  procedure  couid  be  implemented  by  sending  a  large 

number  of  Key  Pad  sequences  but  a  more  efficient  means  is  the  'J'  command  which  includes 
all  of  the  requested  baseline  parameters  in  a  single  string. 


TABLE  I 


ASCII  Codes  For  Touch  Panel  Keys 


KEY 

DECIMAL 

ASCI  I 

0 

48 

'O' 

1 

49 

'  1 ' 

2 

50 

’2' 

3 

51 

'3* 

4 

52 

1  4' 

5 

53 

'5' 

6 

54 

'6' 

7 

55 

,7. 

8 

56 

'8' 

9 

57 

19, 

58 

1  .  I 

CLEAR 

59 

t  .  t 

CHANCE 

60 

'  <’ 

ENTER 

61 

»  —  I 

ABS  vs  WLNGTH 

64 

ABS  vs  TIME 

65 

'A' 

SEL  WLNCTHS 

66 

'  8' 

INSTR  SETTINGS 

67 

•C' 

LAMPS  &  DETECTORS 

68 

1  D' 

AUTO  OP 

69 

'E' 

ACCRY  SETTINCS 

70 

'  F’ 

CALC  MODE 

71 

'C' 

BASLN  SETUP 

72 

'H’ 

TEST  FUNCTION 

73 

’  I  * 

GOTO  WLNGTH 

74 

'  J’ 

LOCK 

75 

’K’ 

START 

80 

■  p. 

STOP 

81 

’Q* 

RESUME 

82 

’R’ 

STANDBY 

83 

'S' 

READY 

84 

'T' 

AUTO  BALANCE 

85 

'  L" 

CASSETTE 

88 

'X' 

PRINT 

89 

’  Y' 

RIGHT  CURSOR 

104 

'h' 

LEFT  CURSOR 

105 

'  i  ' 

MANUAL  SCAN  + 

106 

’  j  ’ 

MANUAL  SCAN  - 

107 

'  k’ 
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1.3  Instrument  Commands  Summary: 


’A’  Lock  or  Unlock  Keyboard 

Command  -  ’@AX0'  where  X  -  0 , 1  (Unlock,  Lock) 

Reply  -  ' #PAX0 ' 

’B’  Status  Request 

Command  -  1 @B0 ’ 

Reply  -  '#PB[  data  ]0'  5  bytes  of  data  are  returned 

’C’  System  Reset 

Command  -  ' @C0 ' 

No  Reply 

’D’  Activate  A  Touch  Panel  Key 

Command  -  ' @DX0 1  where  X  -  ASCII  code  for  Key 

Reply  -  1 #PDXQ ' 

Reply  -  ' #NDX0 ' 

’E’  Dump  Parameter  Table 

Command  -  'gEO' 

Reply  -  '#PE(  no.  of  data  bytes  ][  data  10' 

’F’  Accessory  ON/OFF  Control 

Command  -  '(3FXY0' 

Reply  -  ' #PFXY0O ' 

Reply  -  '#NFXY[  error  no.  ]0’ 

’G’  Return  Value  Of  Parameter  Or  Variable 

Command  -  '(§C1Y0'  Y  -  Index  Number  Of  Parameter 

Reply  -  ' #PC1 Y [  string  l  eng t h  j [  st r i ng  ] 0 ' 

Command  -  '(3C2Y0'  Y  -  Index  Number  Of  Variable 

Reply  -  '#PC2Y[  value  'O' 

Reply  -  '#NCXY[  error  no.  ;0'  for  X  -  1,2 


where  X  -  0,1  (Turn  Off,  On) 
where  Y  -  Accessory  Number 
where  0  before  CSM  -  no  error 


H’  Change  Value  Of  A  Parameter 

Command  —  1 @HXY0 '  where  <  -  Parameter  dumber 

where  Y  -  Required  Index  Value 

Reply  -  ' #PHXYZ0 ‘  where  Z  -  New  Index  Value 

Reply  -  '#NXY[  error  no.  ] 0 ’ 


I’  Change  Value  Of  A  Variable 

Command  -  '@IX[  number  ] ! 0 ‘  where  X  -  Variable  Number 

Reply  -  '#P1X0' 

Reply  -  '#N1X(  error  no.  ] 0 ' 


J’  Set  Up  A  Baseline 

Command  -  '@J[  value  1  ]!...[  value  9  ] ! 0 ' 

Reply  -  '#PJ00'  where  0  before  CSM  -  no  error 

Reply  -  ' #NJ [  error  no.  JO' 


K’  Request  Real  Time  Data  Transmission 

Command  -  '  (3K1Y0'  Interval  mode 

Command  -  '@K3Y(  interval  ]!0'  Continuous  mode 

where  Y  -  0-3  specifies  delimiter  (0,  LF,  CR,  &) 

Reply  -  ’*[  data  ]!...(  data  ]![EOR]#... 

Reply  -  '#NKXY[  error  no.  10’  where  X  -  1,3  (mode) 


L’  Display  Message  On  Line  4  Of  C.R.T. 

Command  -  '(§L1[  message  ]0' 

Command  -  '(§L00'  Turn  Off  Message  Display 

Reply  -  ' #PL0 '  No  Negative  Reply 

M’  Accessory  Mode  Set  Up 

Command  -  '0MX[  value  ] ! 0 ' 

Rep  1 y  -  ’ oPMXOO ’ 

Reply  -  ' **NMX(  error  no.  !  0  1 

Record  Trailer  Set  Up 

Command  -  1  @<§Y0  ’  where  Y  -  0-3  (2  for  CR/LF) 

No  reply 


where  X  —  Parameter  Number 
where  0  before  CSM  -  no  error 
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1.4  Real  Time  Transmission  Data  Format: 


The  'K'  command  selects  one  of  two  real  time  transmission  modes  with  the  CARY 
spectrophotometer  as  the  active  talker  on  the  bus.  The  continuous  mode  transmits  data  at  the 

frequency  of  the  instrument's  chopper  motor  (15  Hz  at  line  frequeny  =  60  Hz)  in  an 

abbreviated  format  of  Ordinate  and  Abscissa.  The  more  useful  mode,  as  used  in  CARYSPEC, 

is  the  programmed  interval  mode  which  transmits  9  instrument  measurements.  This  increases 
the  overhead  for  each  datum  but  the  extra  string  processing  time  has  been  found  to  be 

insignificant  for  the  HP  1000  system.  CARYSPEC  limits  the  choice  of  scan  speed  and 
wavelength  interval  for  a  maximum  transmission  rate  of  5  Hz.  This  modest  rate  is  determined 
by  the  interrupt  service  times  of  the  multi-user  operating  system  rather  than  program 
processing  speed. 

The  data  format  for  the  programmed  interval  mode  varies  with  the  choice  of  Ordinate 
and  Abscissa  modes  for  the  CARY  2390.  The  data  acquisition  subroutine  ACQUIRE  within 
CARYSPEC  supports  all  6  choices  of  Ordinate  mode  and  the  4  choices  of  Abscissa.  However, 
the  main  portion  of  CARYSPEC  rejects  any  choices  other  than  Absorbance  or  Transmittance 
vs  Wavelength  which  send  data  in  the  following  formats: 

A  typical  record  for  Absorbance  vs  Wavelength:  (59  characters) 

#  0.0012!  2000.0011 101  !1 28!  2000.00!  0.0!  28 . 72 !-l 99- S3 ! 

A  typical  record  for  Transmittance  vs  Wavelength:  (58  characters) 

#  100.06!  2000. 00!1  !01  !1 28 !  2000.00!  0.0!  28 .72!-l 99 .73 ! 

These  fields  correspond  to  Ordinate,  Abscissa,  Cell  #,  Cycle  =*,  Sample  w,  Wavelength,  Time. 
Temperature  and  Gel  Scanner  Distance.  Transmissions  from  the  C.ARY  2390  are  read 
left-justified  into  a  CHARACTER  variable  dimensioned  to  length  64.  This  is  sufficient  for  all 
operating  modes  and  makes  ACQUIRE  a  general  purpose  subroutine  for  use  in  other 
programs.  Since  the  record  format  is  fixed  for  each  choice  of  Ordinate  and  Abscissa  there  is 
no  need  to  search  the  data  strings  for  the  ’!’  delimiters.  CARYSPEC  begins  substring 
extraction  at  character  position  2  and  uses  arrays  XOFF(I)  and  YOFF(J)  to  determine  the 
offsets  for  the  first  two  data  fields.  The  remaining  substrings  are  fixed  length  and  the:r 
boundaries  are  calculated  from  the  sum  of  the  lengths  of  the  first  two  data  fields. 
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1.5  Illegal  Parameter  Changes: 


Several  instrument  parameters  have  been  masked  off  from  changes  by  an  external 
computer,  so  becoming  READ  ONLY.  The  slit  height  parameters  #22  &  #26  are  not 
programmable  since  the  slit  height  is  a  manual  adjustment.  The  Baseline  parameters  also  are 
intended  to  be  READ  ONLY  in  order  to  prevent  overwriting  the  descriptors  for  a  current 
baseline.  Hence,  parameters  #23  -  #26  are  updated  only  when  a  new  Baseline  request  is  sent 
using  the  ’J’  command.  The  Baseline  status  parameter  #37  has  limited  accessibility  and  can 
be  turned  ON  or  OFF  only.  CARYSPEC  also  allows  parameter  #37  to  be  set  to  the 
RECORD  and  ON/SETUP  states  by  issuing  Key  Pad  sequences  with  the  'D'  command. 
However,  CARYSPEC  does  not  use  these  settings  to  actually  record  the  Baseline.  The  settings 
are  used  only  to  transfer  setup  information  between  the  instrument  and  baseline  menu 
parameters  for  users  accustomed  to  this  feature. 

Unfortunately,  two  setup  parameters,  DER1V  TEMP  RANGE  (#11)  and  TEMP  ZERO 
(#13),  have  also  been  masked  off  making  it  difficult  to  control  the  CARY  in  some  operating 
modes.  However,  it  was  discovered  that  the  DERIV  TEMP  RANGE  can  be  set  by  using 
parameter  #10,  the  DERIV  RANGE  settings  for  Absorbance  and  %T.  Thus,  parameter  #11 
appears  to  be  an  internal  table  only.  Special  action  has  to  be  taken  in  selecting  the  derivative 
range  settings  since  only  the  1,5,10  sequence  is  valid  while  a  1,2,5,10  sequence  can  be 
selected.  CARYSPEC  includes  an  INDEX  array  variable  which  holds  the  valid  indices  for  the 
derivative  modes.  This  allows  derivative  spectra  to  be  drawn  while  the  external  computer 
acquires  the  raw  measurements.  While  CARYSPEC  does  not  allow  acquisition  with 

TEMPERATURE  as  the  Ordinate  or  Abscissa,  the  functionality  of  the  Temperature  setup 
modes  is  preserved  with  one  exception.  The  TEMP  ZERO  parameter  can  not  be  set  from  the 
external  computer  and  only  the  range  can  be  selected  from  CARYSPEC.  Since  this  is  not  a 
feature  required  for  CARYSPEC  no  attempt  has  been  made  to  issue  a  Key  Pad  sequence  for 
TEMP  ZERO. 

The  CARY  2390  also  masks  off  the  %T  offset  variable  (#10)  when  the  200  %T  range  is 
selected.  This  appears  to  be  designed  so  that  only  a  0-200  %T  range  can  be  selected. 

However,  if  a  non-zero  offset  has  already  been  set  for  another  scale  then  selection  of  the 

200  %T  range  will  not  result  in  a  0-200  %T  scale  -  it  will  have  the  old  offset.  This  illegal 
mode  can  be  reset  by  changing  to  another  range  and  setting  the  offset  to  zero  before 

selecting  the  200  %T  range  again. 
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SOFTWARE  DESCRIPTION 


2.0  Purpose  Of  CARYSPEC: 

The  collection  of  spectrophotometric  data  in  digitized  form  provides  both  a  permanent 
means  of  storage  and  the  ability  to  perform  more  sophisticated  analysis.  While  the  instrument 
obtains  spectral  measurements  as  absorbance  vs  wavelength  (nra),  plotting  programs  can  rescale 
the  raw  data  into  more  meaningful  units  such  as  molar  absorptivity  vs  wavenumber  (cm-1). 
Techniques  such  as  difference  spectroscopy  no  longer  need  to  be  performed  in  real  time  since 
data  files  can  be  manipulated  easily  to  achieve  this  function  by  scaling  and  subtraction.  Noise 
can  be  removed  from  single  scan  spectra  using  least  squares  smoothing  while  similar  functions 
can  be  used  to  generate  derivative  spectra  which  are  more  accurate  than  those  produced  in 
real  time  by  the  CARY  2300-2400  series  spectrophotometers  on  their  internal  pen  recorders. 
Such  benefits  make  it  worthwhile  to  develop  software  for  data  transfer  between  the  CARY 
spectrophotometer  and  an  external  computer  system,  in  this  case  a  Hewlett-Packard  1000 
minicomputer  running  the  Cl  shell  and  RTE-6/VM  operating  system. 

2.1  Language  Features  Of  CARYSPEC: 

The  program  CARYSPEC  was  written  in  FORTRAN  77  since  this  language  provides  the 
most  complete  set  of  interface  and  control  functions  available  on  the  HP  1000.  The 
communication  between  FORTRAN  77  and  the  IEEE-488  interface  to  the  CARY  2390 
spectrophotometer  is  completely  transparent  and  standard  READ/WRITE  statements  control  the 
operation  of  the  instrument  and  the  collection  of  data  transmitted  by  the  CARY.  Therefore, 
the  program  is  portable,  with  some  minor  alterations,  between  systems  supporting  the 
FORTRAN  77  language  and  IEEE-488  Input/Output.  CARYSPEC  uses  three  machine  specific 
function  calls  requiring  substitution  to  run  on  a  different  host  system.  The  first  is  CALL 
FFRCL(79)  which  changes  the  free  field  record  length  from  the  default  value  of  72  to  "9. 

This  is  used  to  provide  more  column  space  on  the  console  display  screen.  The  second  is  a 

call  to  read  the  system  clock  to  provide  calibrated  delay  loops.  Thus  the  operation  of 
SUBROUTINE  Wait(DELAY)  and  FUNCTION  Time(I)  would  need  to  be  altered.  The  third  is 
CALL  ABRT(35,3)  which  terminates  transmission  from  the  CARY  by  sending 
UNTALK/ UNLISTEN  on  the  IEEE-488  bus.  Syntactical  differences  also  appear  between 
various  versions  of  FORTRAN  77,  particularly  in  the  READ/WRITE  statements.  CARYSPEC 

uses  the  format  READ  (1,...)  and  WRITE  (1,...)  for  the  user's  console  (defined  as  LU  1) 

while  Microsoft's  compiler  uses  an  *  to  denote  the  console  unit. 
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2.2  Structure  Of  CARYSPEC. 


CARYSPEC  comprises  a  large  main  program  unit  containing  most  of  the  console  menu 
displays,  block  data  for  named  COMMON  variables  and  a  number  of  subroutines  that  perform 
string  processing,  input  validation  and  communication  with  the  CARY  2390  spectrophotometer. 
The  main  program  is  responsible  for  all  the  logic  flow  and  the  subroutines  execute  specific 
support  tasks,  which  are  summarized  below: 

The  main  program  unit  of  CARY3PEC  comprises  9  distinct  segments  of  code  to  carry 
out  the  the  functions  of  instrument  setup,  spectral  data  acquisition  and  disk  file  data  storage. 
The  code  fragments  appear  under  the  following  assigned  labels:  MENU,  SPECTRUM, 
BASELINE,  ADVANCED,  INSTRUMENT,  LAMP,  ACCESSORY,  STORE  and  EXIT. 

MAIN  PROGRAM 


MENU: 

This  is  the  first  and  main  control  menu  of  the  program,  selecting  entry  to  the  remaining 
instrument  control  menus,  data  acquisition,  storage  and  exit  routines.  The  choices  are  as 
follows: 

’A’ . Acquire  Spectrum 

This  selection  branches  to  label  SPECTRUM  and  performs  logical  tests  for  the 
presence  of  a  valid  Baseline  in  the  CARY,  valid  choices  of  Abscissa/Ordinate 
modes  and  the  presence  of  an  unstored  spectrum  in  memory  before  proceeding 
with  data  acquisition.  If  there  is  no  valid  Baseline  information  in  memory  the 
program  will  branch  to  label  BASELINE.  If  the  Abscissa/Ordinate  settings  are 
inappropriate  the  program  will  branch  to  label  INSTRUMENT. 

’B’ . Baseline  Setup 

This  selection  branches  to  label  BASELINE  which  reads  the  current  instrument 
settings  and  presents  the  pertinent  Baseline  parameters  in  a  menu  arrangement 
similar  to  the  equivalent  display  on  the  CARY.  The  user  can  alter  these  selections 
but  most  will  not  take  effect  unless  a  new  Baseline  scan  is  recorded  on  exit  from 
this  menu.  Otherwise,  an  exit  is  made  to  the  main  MENU  with  the  instrument 
baseline  settings  intact,  a  feature  of  the  CARY  which  prevents  inadvertent 
alterations  to  the  parameters  describing  the  current  instrument  Baseline. 


T . Instrument  Settings 

This  selection  branches  to  label  INSTRUMENT,  reads  the  current  instrument 
settings  and  presents  the  most  important  in  a  menu  arrangement  similar  to  the 
equivalent  display  on  the  CARY.  The  user  may  alter  these  instrument  settings  and 
any  changes  are  implemented  immediately  by  the  instrument.  If  such  changes  affect 
the  quality  of  the  Baseline  matching  for  a  subsequent  acquisition  scan  then  the 
changes  will  be  overridden  automatically,  if  possible.  Otherwise,  the  user  will  be 
directed  to  record  a  new  Baseline  scan  with  the  altered  settings,  followed  by 
acquisition  of  the  spectrum.  In  most  cases  the  automatic  matching  routines  will  take 
effect  to  provide  a  smooth  user  interface. 

’L’ . Lamps/Detectors/Accessories 

This  selection  branches  to  label  ADVANCED  and  reads  the  current  instrument 

settings  and  presents  a  number  of  menu  selections  for  subsidiary  functions  and 
operating  modes  of  the  CARY.  Selection  ’1’  branches  to  label  LAMP  and  presents 
a  menu  which  lists  the  status  of  the  lamp  and  detector  modes,  which  then  may  be 
altered.  Selection  '2'  branches  to  label  ACCESSORY  and  presents  a  menu  which 
lists  the  status  of  the  temperature  and  printer  accessories,  which  then  may  be  setup 
as  desired.  Selection  '3'  for  automatic  operations  is  not  yet  supported. 

’S’ . Store  File  On  Disk 

This  selection  branches  to  label  STORE  and  prompts  the  user  for  entry  of 
pertinent  file  information  before  saving  a  data  file  to  disk.  This  routine  includes 

standard  error  checking  for  File  Exists,  File  Open  and  disk  transfer  errors.  The 

user  is  returned  to  the  main  MENU  on  exit. 

’X’ . Exit 

This  selection  braches  to  label  EXIT  and  checks  for  the  presence  of  an  unstored 
spectrum  which  causes  a  prompt  for  confirmation  before  proceeding.  The  user  then 
has  the  option  of  setting  the  CARY  to  standby  mode,  if  desired,  before  the 

program  stops. 
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SPECTRUM: 

This  portion  of  CARYSPEC  controls  the  acquisition  of  a  spectrum  from  the  CARY  2390 
spectrophotometer.  On  entry,  this  code  will  check  important  instrument  parameters  and 
status  variables  and  perform  conditional  branches  to  BASELINE,  INSTRUMENT  or 
MENU  if  the  conditions  outlined  above  are  not  satisfied.  A  successful  entry  will  display  a 
request  for  the  wavelength  scan  limits,  which  default  to  the  Baseline  scan  range.  New 
limits  may  be  chosen  and  are  validated  for  the  range  185-3152  nm.  {The  limits  may 
exceed  the  Baseline  range  but  this  will  cause  a  subsequent  call  to  SUBROUTINE  Bline 
with  the  new  limits  and  current  instrument  settings  before  returning  to  the  data 
acquisition  loop.} 

The  remaining  entry  required  is  the  step  size  interval  (0.01-5  nm)  during  the  scan.  The 
instrument  is  capable  of  0.01  nm  steps  in  the  UV-VIS  region  or  0.04  nm  in  the  Near 
IR.  No  restrictions  are  placed  on  the  user  in  this  regard  but  it  is  strongly  recommended 
that  sensible  units  be  chosen,  e.g.  .1,  .2,  .25,  .5  nm.  The  program  will  reject 

combinations  of  scan  rate  and  step  size  which  would  result  in  the  data  rate  exceeding 
5  Hz.  This  restriction  is  a  result  of  the  rather  slow  multi-user  environment  of  the 
HP  1000  rather  than  a  processing  speed  problem.  Either  scan  rate  or  step  size  may  be 
altered  to  meet  this  condition.  Finally,  the  wavelength  range  and  step  size  are  used  to 
check  the  number  of  data  points  for  the  scan.  If  the  request  exceeds  10001  points  the 
user  is  prompted  for  a  new  step  size. 

After  satisfying  the  basic  conditions  above  the  program  will  perform  a  number  of  checks 

on  the  current  operating  conditions  of  the  CARY  2390  to  determine  whether  these  will 

match  the  conditions  for  the  Baseline  scan.  Mismatched  settings  of  SBW  (nm)  and  3 AIN 
will  be  reset  automatically  to  smooth  over  some  instrument  peculiarities.  Other 
mismatches  are  assumed  to  be  operator  requirements  and  result  in  a  prompt  to  record  a 
new  Baseline  scan.  The  user  may  either  proceed  or  abort  this  operation  and  return  to 

the  main  MENU  to  take  corrective  action. 

Successful  traversal  of  ail  the  matching  checks  will  present  a  listing  of  scan  parameters 
and  a  prompt  to  Start  or  Abort  the  scan.  Aborting  will  return  the  user  to  the  main 

MENU  and  restore  the  parameter  strings  describing  any  previous  spectrum  in  memory. 
Starting  will  position  the  monochromator  to  the  starting  wavelength  and  prompt  for  Print 
to  Screen  during  the  scan  -  removal  of  this  I/O  overhead  helps  prevent  missed  data  with 
several  users  on  the  HP  1000.  The  remainder  of  the  acquisition  is  automatic,  returning 
to  the  main  MENU  after  completion. 


BASELINE: 

The  current  instrument  Baseline  parameters  are  read  on  entry  to  this  section  or 
CARYSPEC  for  display  in  a  menu  format  similar  to  the  Baseline  Setup  menu  on  the 
instrument.  This  code  is  responsible  for  the  selection  of  all  relevant  parameters  for  a 
new  Baseline  scan.  However,  since  most  of  these  parameters  are  masked  from  direct 
changes  by  the  computer,  via  SUBROUTINE  Select,  a  number  of  inappropriate 
combinations  are  tested  for  after  each  new  selection  is  made.  These  tests  reset  the  bad 
parameter  requests  to  the  most  appropriate  selection  thereby  eliminating  the  rejection  of 
any  parameters  in  subsequent  calls  to  SUBROUTINE  Bline.  After  validation  of  the 
Baseline  parameters  the  program  tests  whether  the  operating  mode  at  the  start  of  the 
scan  will  be  AUTO  GAIN  (MODE  =  1)  or  AUTO  SLIT  (MODE  =  2).  The  integer 
variable  MODE  then  controls  the  logical  operation  of  the  remainder  of  the  program  and 
SUBROUTINE  Bline  where  choices  between  SBW  and  GAIN  settings  are  important  for 
determining  or  controlling  the  operation  of  the  CARY  2390. 

A  special  exit  is  made  from  the  BASELINE  code  for  setting  the  instrument  GAIN  level 
if  the  requested  value  exceeds  the  current  setting  by  more  than  a  factor  of  10,  which 
can  result  in  misbeaviour  of  the  slit  servo  system  of  the  CARY  2390.  A  sudden,  large 
increase  in  GAIN  should  just  send  the  instrument  closer  to  zero  slit  width.  However,  on 
this  CARY  2390,  at  least,  the  slit  width  can  overshoot  through  zero  and  continue  to 
fully  open  the  slits  with  high  gain,  seriously  imperilling  the  detectors!  To  prevent  such  a 
disaster  the  program  will  select  AUTO  SLIT  mode  and  branch  to  line  490,  which  is  part 
of  the  INSTRUMENT  code  fragment.  This  subsection  resets  the  current  instrument  GAIN 
in  factors  of  10  until  it  matches  the  new  Baseline  request.  The  logical  variable 
TRANSFER  controls  the  exit  from  this  routine  back  to  BASELINE. 

On  exit  from  the  Baseline  Setup  menu  the  user  may  either  record  a  new  Baseline  or 
return  to  the  main  MENU.  Both  options  read  the  current  instrument  parameters  before 
returning  to  MENU,  keeping  the  program  updated.  This  is  performed  by  re-using  part  of 
the  code  at  the  start  of  the  BASELINE  fragment  under  the  control  of  logical  variable 
TRANSFER.  If  a  new  Baseline  is  recorded  the  program  will  monitor  the  instrument  until 
completion  of  the  procedure  and  then  issue  an  AUTO  BALANCE  command  to  zero  the 
instrument  on  the  reference  material.  Subsequent  data  acquired  via  the  SPECTRUM 
fragment  will  therefore  produce  baseline  corrected  spectra. 
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ADVANCED: 

This  portion  of  CARYSPEC  presents  a  small  menu  of  subsidiary  instrument  ietup 
functions  that  may  need  to  be  changed  occasionally.  The  selection  are: 

T . LAMPS  &  DETECTORS 

This  selection  will  display  a  further  menu  which  lists  the  current  status  of  the 
LAMP  POWER,  LAMP  SELECT  and  DETECTOR  SELECT  modes.  Normally,  both 
lamps  are  ON  and  the  lamps  and  d.'ectors  are  in  AUTO  SELECT  mode.  These 
settings  can  be  changed  to  increase  the  working  wavelength  range  for  the  individual 
lamps  or  detectors.  {NOTE:  Individual  selection  of  a  lamp  or  detector  prevents 
lamp  or  detector  changes  and  thereby  prevents  coverage  of  pan  of  the  wavelength 
range  accessible  with  AUTO  SELECT  modes.} 

*2* . ACCESSORY  SETTINGS 

This  selection  allows  the  user  to  turn  on  and  setup  two  installed  accessories,  the 
TEMPERATURE  READOUT  and  the  thermal  PRINTER.  On  entry  to  this  routine 
both  accessories  are  commanded  to  an  OFF  status.  If  a  positive  reply  is  received 
from  the  CARY  that  parameter  is  reset  to  ON.  If  the  TEMPERATURE  accessory 
is  selected  and  turned  ON  a  small  menu  is  presented  for  selection  of  the 
TEMPERATURE  RANGE.  If  the  PRINTER  option  is  selected  and  turned  ON  a 
subsidiary  menu  is  presented  to  select  the  operating  mode  and  interval  step  size  for 
printer  output.  The  modes  supported  are  Wavelength,  Time  and  Temperature. 
However,  CARYSPEC  only  acquires  data  in  Wavelength  mode. 

’3’ . AUTO  OPERATIONS 

This  selection  is  intended  for  future  expansion  for  automatic  repetitive  scans. 
Currently,  it  prints  an  error  message  and  returns  for  another  selection. 

’X’ . EXIT  TO  MENU 

This  entry  returns  to  the  main  MENU. 
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INSTRUMENT: 


This  section  of  CARYSPEC  reads  the  current  wavelength  and  instrument  settings  from 
the  CARY  and  presents  the  most  important  functions  in  a  menu  format  that  is  very 
similar  to  the  equivalent  display  on  the  instalment.  Changes  made  from  this  menu  are 
executed  by  the  CARY  2390  immediately.  The  selections  are: 

’0’  . WAVELENGTH 

This  selection  allows  the  monochromator  to  be  repositioned  to  any  valid  wavelength 
for  the  current  selections  of  Lamp  and  Detector  modes. 

Y  . ORDINATE 

Only  Absorbance,  %T  and  Temperature  are  selectable  from  this  menu.  However, 
CARYSPEC  will  not  allow  Temperature  as  a  valid  ordinate  during  scans. 

’2’  . ABSCISSA 

Wavelength,  Time  and  Temperature  are  selectable  from  this  menu.  However, 
CARYSPEC  only  allows  Wavelength  as  a  valid  abscissa  during  scans. 

’3’  . SCAN  RATE 

The  scan  rate  must  be  chosen  in  combination  with  spectral  bandwidth  and  filter 
period  for  accurate  recording  of  bandshape.  There  is  a  particular  difficulty  in  the 
650  nm  region  where  a  Wood's  anomaly  causes  poor  baseline  correction.  The  scan 
rate  should  not  exceed  1  nm/sec  per  SBW  (nm)  per  second  period. 

’4’  . CHART  DISPLAY 

The  chart  recorder  may  be  used  on  any  setting  during  data  acquisition. 

’5’  . REFERENCE  MODE 

The  instrument  is  normally  used  in  AUTO  SELECT  mode  to  allow  full  wavelength 
coverage  with  both  lamps  and  both  detectors.  However,  AUTO  GAIN  and  AUTO 
SLIT  modes  may  also  be  used  for  wavelength  scans.  The  working  range  for  these 
depends  on  the  detector  mode  selected.  AUTO  GAIN  may  be  used  above  800  nm 
with  the  PM  Tube  if  the  UV/V1S  detector  modes  is  selected.  AUTO  SLIT  mode 
can  be  used  for  the  full  instrument  range  (185-3152  nm).  The  reference  mode  for 
data  acquisition  must  match  that  used  for  the  Baseline  scan.  SINGLE  BEAM  mode 
is  not  valid  for  wavelength  scans  and  is  intended  only  for  instrument  adjustments. 
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’6’  . SBW  (nm),  GAIN 

This  selection  allows  setting  of  eiiher  the  SBW  or  GAIN  depending  on  whether  the 
CARY  is  operating  in  AUTO  GAIN  or  AUTO  SLIT  mode  at  the  current 
wavelength.  The  actual  operating  mode  for  AUTO  SELECT  reference  mode  is 
determined  by  the  wavelength  and  detector  select  mode.  These  are  checked  by 
CARYSPEC  to  determine  the  correct  prompt  and  instrument  command. 

7’  . PEN  FUNCTION 

The  pen  operates  independently  of  the  raw  spectrophotometric  data  sent  via  the 
EEEE-488  bus  to  an  external  computer  and  may  operate  in  any  valid  mode  during 
data  acquisition.  The  Ordinate  choice  determines  which  modes  are  valid  and 
inappropriate  selections  are  masked  by  CARYSPEC.  However,  it  is  perfectly  feasible 
to  draw  a  second  derivative  spectrum  while  acquiring  data  via  the  IEEE-488  bus. 

’8’  . PEN  LIMITS 

This  selection  allows  for  setting  the  range  and  offset  for  all  valid  Ordinate  modes. 
The  NORMAL  mode  pen  limits  are  selected  via  the  Parameter  and  Variables 
Tables.  The  %T  mode  has  a  minor  bug  for  the  200  %T  scale.  If  a  previous 
choice  has  set  a  non  zero  offset  this  will  not  be  correctly  reset  to  0  %T  as 
expected  since  the  %Tler0  variable  is  masked  off  by  the  CARY  on  the  200  %T 
scale.  Similarly,  the  Temperature  zero  offset  parameter  can  not  be  changed  by  an 
external  computer,  though  the  setting  is  read  by  CARYSPEC.  A  non-zero  offset 
entered  from  the  instrument  keypad  will  be  displayed  but  only  the  range  can  be 
set  by  CARYSPEC.  The  Derivative  and  Log(Abs)  mode  limits  are  handled  by 
parameter  table  selection  with  special  handling  of  the  indexing  to  prevent  use  of 
invalid  settings  in  the  CARY  firmware  table. 

’9’  . RESPONSE  TIME  (sec) 

This  selection  allows  the  filter  period  to  be  set  to  0.5,  1,  3  or  10  seconds. 

During  the  recording  of  a  Baseline  the  period  should  be  set  to  0.5  seconds  for 
maximum  fidelity  in  the  650  nm  region  where  there  is  a  Wood's  anomaly.  Failure 
to  observe  the  scan  rate,  filter  period  and  SBW  limitations  will  results  in  improper 
baseline  corrections.  Higher  period  settings  can  be  used  on  subsequent  spectra  wiih 
little  prejudicial  effect. 
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10’ . BEAM  INTERCHANGE 


This  selection  allows  the  front  and  rear  light  beam  paths  to  be  interchanged 
between  the  sample  and  reference  channels  for  special  applications,  such  as  the 
diffuse  reflectance  accessory. 

’ll’ . SLIT  HEIGHT 

This  selection  is  not  valid  -  it  is  a  READ  ONLY  parameter  for  the  manual  slit 
height  setting. 

’X’  . EXIT  Instrument  Menu 

This  selection  performs  a  return  to  the  main  MENU. 


LAMP: 

This  subsidiary  menu  reads  and  reports  the  current  status  of  the  lamp  and  detector 
operating  modes.  The  selections  are: 

T  . LAMP  POWER 

Normally,  the  instrument  is  operated  with  this  parameter  set  to  BOTH  ON 
enabling  the  complete  wavelength  range  to  be  covered.  However,  the  UV  or 
VIR/NIR  selections  may  be  made  to  prolong  the  life  of  a  lamp.  CARYSPEC  does 
not  automatically  turn  on  lamps  as  required  for  a  particular  scan. 

’2’  .....LAMP  SELECT 

For  complete  coverage  of  the  wavelength  range  185-3152  nm  this  parameter  must 
be  in  the  AUTO  select  mode,  which  will  result  in  a  lamp  change  at  340  nm.  The 
range  covered  by  the  individual  lamps  may  be  extended  -  up  to  400  nm  for  the 
D2  lamp  (UV)  and  down  to  270  nm  for  the  tungsten  lamp  (V1S/NIR).  However, 
no  lamp  change  will  then  be  made.  CARYSPEC  provides  error  checking  for  the 
latter  two  modes  to  prevent  positioning  the  monochromator  outside  the  valid 
wavelength  limits  since  this  would  result  in  the  instrument  turning  OFF  the  current 
baseline.  Recovery  from  such  a  state  involves  repositioning  the  monochromator  and 
using  the  ON/SETUP  selection  for  Baseline  Status  in  the  Baseline  Setup  menu. 

’3’  . EXIT  TO  MENU 

This  selection  returns  to  the  ADVANCED  menu. 
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ACCESSORY: 

The  CARY  2390  has  two  installed  accessories  programmable  by  an  external  computer. 
The  selections  are: 

T  . TEMPERATURE  READOUT 

This  selection  should  normally  be  turned  ON  so  that  subsequent  data  files  are 
stored  with  the  correct  temperature  (a  reading  of  2.55  is  passed  by  the  CARY  with 
the  accessory  OFF).  If  this  selection  is  made  and  turned  ON  a  further  menu  will 
be  presented  for  selection  of  the  temperature  range.  This  only  affects  the  pen 
scaling  with  TEMPERATURE  as  the  Ordinate  or  Abscissa  -  not  valid  modes  for 
data  acquisition  in  CARYSPEC.  Thus,  selecting  100  degrees  is  recommended. 

’2’  . PRINTER 

This  selection  allows  the  user  to  setup  the  thermal  strip  printer  to  provide 
instrument  readings  at  selected  intervals  during  a  scan  (1  point/sec  max.).  While 
the  selections  include  WAVELENGTH,  TIME  and  TEMPERATURE  the  latter  two 
are  not  valid  scan  modes  in  CARYSPEC. 

STORE: 

This  portion  of  CARYSPEC  provides  the  data  file  storage  routine.  On  entry  to  this  code 
CARYSPEC  checks  that  a  spectrum  has  been  acquired  and  has  not  yet  been  stored. 
Otherwise,  the  program  returns  to  the  main  MENU.  After  this  validation  the  program 
will  present  a  series  of  prompts  for  Filename  and  Directory  information,  which  are  then 
used  to  build  a  Pathname  and  to  check  that  such  a  file  does  not  already  exist  in  the 
specified  directory.  If  the  filename  is  valid  the  user  will  be  prompted  for  the  LABEL, 
DATE,  CONCENTRATION  (M)  and  PATHLENGTH  (cm)  file  descriptors  followed  by 
disk  file  storage.  The  data  File  is  stored  in  the  following  format  given  in  Table  II. 

EXIT: 

This  final  portion  of  CARYSPEC  checks  that  any  spectrum  in  memory  has  been  stored 
and  prompts  for  confirmation  before  allowing  the  user  to  terminate  the  program.  On  exit 
the  user  may  elect  to  set  the  CARY  2390  to  standby  mode  if  no  further  spectra  will  be 
acquired. 
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TABLE  II 


Data  File  Format 


Line 

File  Variables 

Format  Type  a 

1 

TITLE 

CHARACTER  (A72) 

2 

DATE 

CHARACTER  (A8) 

3 

XMIN,XMAX,XSTEP,CONC,PATH 

REAL  (*) 

4 

ORD,ABSC,CELL, CYCLE, SAMPLE, 

WAVE, TIMER, TEMP,  DIST 

REAL  (*) 

5 

J.K.NARRAY 

INTEGER  (13,13,16) 

6-54 

PARAM(I) 

INTEGER  (12) 

55 

VARIABLE(I) 

REAL  (*) 

56-/ 

Y(I) 

REAL  (*) 

/-eof 

X(I) 

REAL  (*) 

a:  (*)  indicates  free  field  format 
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2.3  BLOCK  DATA: 


All  COMMON  variables  used  by  CARYSPEC  are  held  in  named  COMMON  blocks  and 
initialized  in  BLOCK  DATA  immediately  following  the  main  program  unit.  The  compiler 
directive  /NOALLOCATE/  is  used  to  ensure  that  only  one  block  of  memory  is  set  aside 
during  the  multi-level  segmentation  of  CARYSPEC.  The  variables  contained  within  the 
COMMON  blocks  are  listed  below: 


/MODE/  Contains  COMMON  INTEGER  variables 

NDATA  Number  of  data  points  in  a  scan 
Value  set  in  main  program 
Value  used  in  SUBROUTINE  Acquire 

Value  stored  in  NARRAY  in  main  program  for  disk  data  file 

XMODE  Specifies  abscissa  mode  for  selecting  length  of  data  field 
Value  set  in  main  program 

Value  used  in  SUBROUTINE  Acquire  as  index  for  local  array  XOFF 

YMODE  Specifies  ordinate  mode  for  selecting  length  of  data  field 
Value  set  in  main  program 

Value  used  in  SUBROUTINE  Acquire  as  index  for  local  array  YOFF 


/CARY/  Contains  COMMON  REAL  variables 

ORD,  ABSC,  CELL,  CYCLE,  SAMPLE,  WAVE,  TIMER,  TEMP,  D1ST 
Values  correspond  to  the  9  instrument  readings  sent  during  scan 
Values  set  in  SUBROUTINE  Acquire 
Values  used  in  main  program 
Values  stored  in  disk  data  file 


/IP/  Contains  COMMON  INTEGER  arrays 


NPAR  Specifies  the  number  of  settings  for  each  instrument  parameter 
DIMENSION  =  49 
Values  set  in  BLOCK  DATA 

Values  used  by  SUBROUTINE  Select  for  changing  instrument  settings 

OFFSET  Species  the  index  offset  in  the  parameter  table 
DIMENSION  =  49 
Values  set  in  BLOCK  DATA 

Values  used  in  SUBROUTINE  Select  for  changing  instrument  settings 


/IS/  Contains  COMMON  CHARACTER  string  arrays 

Pname  Specifies  the  names  of  instrument  parameters  for  screen  display 
DIMENSION  =  (49)*10  characters 
Values  set  in  BLOCK  DATA 
Values  used  in  SUBROUTINE  Select 

Vname  Specifies  the  names  of  instrument  variables  for  screen  display 
DIMENSION  =  (49)*8  characters 
Values  set  in  BLOCK  DATA 

Values  not  used  in  current  version  (for  future  use) 


2.4  SUBROUTINES: 


CARYSPEC  uses  subroutines  to  perform  specific  tasks  which,  with  one  exception,  are 
required  more  than  once.  Terminate  is  setup  as  a  subroutine  solely  for  clarity  of  main 
program  execution.  The  purpose  and  calling  sequences  are  listed  below: 

Acquire(Inc, PRINT, SINGLE,  WAVELENGTH) 

Performs  real  time  data  acquisition  from  the  CARY  2390  in  two  modes, 
single  point  for  updating  the  current  monochromator  position  and  scan  mode 
at  Inc  (nm)  steps.  COMMON  variables  XMODE,  YMODE  and  NDATA 
select  the  correct  data  string  format  for  the  Abscissa  and  Ordinate  modes 
selected  by  the  main  program  unit  and  the  number  of  data  points  required 
in  the  scan.  The  scan  mode  stores  each  Abscissa  and  Ordinate  value  in 
EMA  COMMON  arrays  X  and  Y.  COMMON  BLOCK  /CARY/  returns  the 
final  set  of  readings  to  the  main  program  unit  for  data  file  storage. 

/MODE/  INTEGER  XMODE, YMODE, NDATA  input  variables  control  acquisition 

/CARY/  REAL  ORD.ABSC, CELL, CYCLE  .SAMPLE,  WAVE, TIMER, TEMP, DIST  output 

/DATA/  REAL  arrays  X,Y  hold  Abscissa  and  Ordinate  values  for  output 

Inc  CHARACTER*4  variable  input  which  specifies  the  interval  (nm) 

PRINT  LOGICAL  variable  input  which  turns  screen  output  on/off  during  scan 

SINGLE  LOGICAL  variable  input  which  selects  single  datum  or  scan  mode 

WAVELENGTH 

REAL  variable  output  for  single  datum  mode 

CALLED  BY:  Main  program  unit  only 

CALLS :  SUBROUTINE  Val 
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BIine(WMIN,WMAX,Bdet,Bgain,Blamp,Bperiod,Brate,Bref,Bsbw,Bslit,Bscan,Btime. 

MATCH,MODE) 


WMIN.WMAX 

Bdet 

Bgain 

Blamp 

Bperiod 

Brate 

Bref 

Bsbw 

Bslit 

Bscan 

Btime 

MATCH 


Performs  a  Baseline  Setup  by  sending  a  list  of  instrument  parameter 
requests  to  the  CARY  2390.  Validation  of  the  instrument  settings  is 
performed  by  the  main  program  unit  before  calling  Bline. 

Wavelength  limits  passed  from  main  program  unit 

CHARACTER*1  variable  input  to  select  detector  mode 

CHARACTER*4  variable  input  to  set  gain  value 

CHARACTER*!  variable  input  to  select  lamp  mode 

CHARACTER*!  variable  input  to  select  period  setting 

CHARACTER*!  variable  input  to  select  scan  rate  setting 

CHARACTER*!  variable  input  to  select  reference  mode 

CHARACTER*4  variable  input  to  set  SBW  value 

CHARACTER*!  variable  input  to  match  physical  slit  height 

CHARACTER*  14  variable  input  for  screen  display  of  scan  rate 

CHARACTER*! 4  variable  input  for  screen  display  of  period 

LOGICAL  variable  .TRUE,  on  entry  and  exit  unless  scan  aborted 


MODE 


INTEGER  variable  input  to  specify  AUTO  GAIN/SLIT  mode 


Center(TITLE) 


Prints  a  string  on  the  user  console  centred  within  a  72  column  line. 

TITLE  CHARACTER*72  string,  contents  set  by  calling  unit 

CALLED  BY:  Main  program  unit,  SUBROUTINE  Select,  SUBROUTINE  Bline  and 
SUBROUTINE  Acquire 
CALLS:  None 

GOTO(Wlength) 

Performs  the  same  function  as  the  Key  Pad  GO  TO  WLNGTH  on  the 
instrument  to  enable  repositioning  of  the  monochromator  to  a  specified 
wavelength.  Error  trapping  for  illegal  or  inappropriate  settings  is  performed 
by  the  main  program  unit  and  no  negative  reply  is  tested  for. 

Wlength  CHARACTER*?  variable  input  from  the  main  program  unit 

CALLED  BY:  Main  program  unit  only 

CALLS:  SUBROUTINE  Send,  SUBROUTINE  Instats 

EXTENSION:  LEN(ftrirtg)  function,  HP  extension  to  FORTRAN  77 

Instats(Slew, . . . ,  Windex) 

Performs  a  request  for  current  instrument  status  from  the  CARY  2390.  Slew 
is  used  to  determine  if  the  monochromator  is  still  in  motion.  The  other 
variables  are  not  used  in  this  version.  No  negative  reply  is  issued  by  the 
CARY  for  this  command. 

Slew.Model, Ncell, Range,  Windex 

CHARACTER*1  variables  passed  back  to  calling  unit 

CALLED  BY:  Main  program  unit,  SUBROUTINE  GOTO 
CALLS:  None 
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Limits(MIN.MAX) 

Reads  entries  for  the  wavelength  limits  from  the  user  console,  swaps  the 
entries  if  necessary  and  validates  the  entries  against  the  instrument  limits 
(185  -  3152  nm).  The  values  are  then  rounded  to  whole  digits. 

MIN,MAX  REAL  variables  passed  back  to  main  program  unit 

CALLED  BY:  Main  program  unit  only 

CALLS:  None 

Line(N) 

Prints  a  line  of  characters  to  the  user  console  N  columns  wide  and 
centred  within  a  72  column  line. 

N  INTEGER  variable  input  from  calling  unit 

CALLED  BY:  Main  program  unit,  SUBROUTINE  Select,  SUBROUTINE  Bline  and 
SUBROUTINE  Acquire 
CALLS:  None 

Partable(PARAM) 

Performs  a  request  to  send  the  parameter  table  from  the  CARY  2390  and 
processes  the  reply  to  update  the  program's  list  of  current  instrument  settings 
held  in  the  integer  array  PARAM.  No  negative  reply  is  issued  by  the  CARY 
for  this  command. 

PARAM  INTEGER  array  output  which  holds  the  instrument  parameter  settings 
DIMENSION  =  49,  values  set  by  CARY  and  SUBROUTINE  Select 

CALLED  BY:  Main  program  unit  only 

CALLS:  None 


Select(N,PARAM,Pstr) 

Performs  selection  of  available  instrument  settings  for  parameter  S'.  Calls 
SUBROUTINE  Send(Command)  to  set  new  parameter  values.  Negative  replies 
are  not  tested  since  the  parameter  table  values  are  read  again  on  return  to 
the  main  program  menus  calling  Select.  A  special  fix  has  been  added  for 
Derivative  modes  to  use  only  valid  selections  from  PARAM(ll)  and  Pstrfl  1 ). 

N  INTEGER  input  value  (1  -  49)  representing  parameters  0-48 

PARAM  INTEGER  array  input  of  current  instrument  parameter  settings 

DIMENSION  =  49,  used  to  detect  special  case  indexing  for  Pstr 

Pstr  CHARACTER  string  array  containing  all  selections  for  parameters 

DIMENSION  =  (49,16)*14  characters,  41-49  not  used  in  this  version 

/IP/  INTEGER  arrays  NPAR, OFFSET  used  to  select  index  number  for  Pstr 

/IS/  CHARACTER  array  Pname  containing  the  names  of  each  parameter 

DIMENSION  =  (49)*10 

INDEX  INTEGER  array  of  valid  index  values  for  Derivative  modes 

DIMENSION  =  11,  uses  local  data  for  indices  to  PARAM(ll) 


Send(Comxnand) 

Performs  an  IEEE-488  WRITE  to  the  CARY  2390  to  send  a  string 
command  to  the  instrument  and  to  read  the  reply.  Negative  replies  are  not 
checked  using  this  routine.  Commands  are  either  validated  before  calling 
Send  or  parameters  and  variables  are  read  afterwards  to  check  the  results 
from  Send. 

Command  CHARACTER  variable  holding  an  ASCII  string  command  for  CARY 
DIMENSION  =  variable,  set  by  calling  unit. 

CALLED  BY:  Main  program  unit,  SUBROUTINE  Select,  SUBROUTINE  GOTO 
CALLS:  None 
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Str(VALUE, String, PREC) 

Performs  a  conversion  from  numeric  value  to  a  string  number  for  floating 
point  numbers  only  with  up  to  12  digits  precision.  This  is  more  than 
required  by  the  CARY  2390. 

VALUE  REAL  variable  input  to  be  processed  by  the  routine 

String  CHARACTERS  4  string  output  corresponding  to  VALUE 

PREC  INTEGER  variable  input  to  set  the  rounding  precision  for  string 

CALLED  BY:  Main  program  unit,  SUBROUTINE  Bline 
CALLS:  None 

Terminate 

Performs  an  IEEE-488  WRITE  to  UNTALK  the  CARY  2390  and  terminate 
real  time  transmission  mode. 

CALLED  BY:  Main  program  unit  only 

CALLS:  ABRT(35,3)  an  EXTERNAL  class  system  level  routine 

This  function  sends  the  UNTALK/UNLISTEN  characters 

Upper(Code) 

Performs  a  check  for  lower  case  characters  in  a  string  of  arbitrary  length 
and  converts  to  upper  case  if  necessary. 

Code  CHARACTER  variable  passed  into  routine  and  UPPER  case  on  exit 

DIMENSION  =  arbitrary,  set  by  calling  unit 

CALLED  BY:  Main  program  unit,  SUBROUTINE  Bline 
CALLS :  None 
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Val(String ,  V  ALUE ) 

Performs  a  conversion  from  string  to  numeric  value  for  a  string  number 
containing  up  to  10  digits.  This  is  more  than  required  by  the  CARY  2390. 

String  CHARACTER  string  input  to  be  processed  by  routine 
DIMENSION  =  arbitrary,  set  by  calling  unit 

VALUE  REAL  variable  output 


CALLED  BY:  Main  program  unit,  SUBROUTINE  Variable,  SUBROUTINE  Acquire 
CALLS:  None 


Vartable(VARIABLE) 

Performs  a  request  to  send  all  14  instrument  variables  and  processes  the 
replies  to  update  the  program’s  list  of  current  values  held  in  the  floating 
point  array  VARIABLE.  Negative  replies  from  the  CARY  are  not  tested  in 
this  routine  since  illegal  requests  are  not  issued  by  Variable. 

VARIABLE  REAL  array  output  which  holds  the  instrument  operating  variables 
DIMENSION  =  14,  values  set  by  CARY  and  main  program  unit 

CALLED  BY:  Main  program  unit  only 

CALLS:  SUBROUTINE  Val 


Wait(DELAY) 

Performs  a  loop  which  tests  the  system  clock  until  DELAY  seconds  have 
elapsed.  The  routine  does  not  make  provision  for  the  special  case  at  the 
transition  to  2400  hours. 

DELAY  REAL  variable  holding  the  value  of  the  delay  period  in  seconds 


CALLED  BY:  Main  program  unit  and  SUBROUTINE  Bline 
CALLS:  FUNCTION  Time(I) 


30 


2.5  FUNCTIONS: 


CARYSPEC  uses  only  one  function  subprogram  that  makes  an  EXEC  call  to  read  the 
system  time. 

Time(I) 

Performs  an  EXEC  call  to  read  the  system  clock  and  converts  the  reading  to 
seconds  and  centiseconds. 

I  Dummy  argument 

CALLED  BY:  SUBROUTINE  Wait  only 

CALLS:  EXEC(ICODE.nTME)  system  level  command 


PROGRAM  CODE 


3.0  Source  Code  Availability: 

The  source  code  for  program  CARYSPEC  is  an  83K  ASCII  text  file  available  on  either  a 
Hewlett-Packard  cartridge  tape  or  an  IBM  360K  format  floppy  disk.  All  requests  should  be 
accompanied  by  the  blank  medium  desired.  A  printed  copy  of  the  source  code  is  listed  below. 


3.1  Variable  Names  And  Usage: 

A  complete  listing  of  the  INTEGER,  REAL  and  CHARACTER  variables  for  the  MAN 
segment  of  CARYSPEC  is  given  below  in  Tables  III,  IV  &  V,  respectively.  The  subroutines 
use  the  same  names  as  the  main  program  for  the  same  variables.  Additional  variables  in  the 
subroutines  and  simple  integers,  I-N,  are  not  documented  since  their  usage  is  rather  obvious. 
The  logical  variables  MATCH,  PRINT,  SINGLE  and  TRANSFER  are  used  within  the  program 
to  control  conditional  branching.  MATCH  is  related  to  BLOCK  IF  tests  for  matching  of  the 
baseline  and  spectrum  parameters.  PRINT  controls  whether  data  will  be  printed  to  the  console 
screen  during  data  acquisition.  SINGLE  controls  the  operation  of  Acquire  to  update  the 
wavelength.  TRANSFER  is  used  for  special  branching  to  reuse  portions  of  code. 
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Table  III 


Glossary  of  INTEGER  Variables 

Name 

Description 

Value 

ACCESSORY 

Assigned  Label  -  Accessory  Setup  Menu 

600 

advanced 

Assigned  Label  -  Subsidiary  Functions 

350 

BASELINE 

Assigned  Label  -  Baseline  Setup  Menu 

200 

EXIT 

Assigned  Label  -  Terminate  Program 

900 

INSTRUMENT 

Assigned  Label  -  Read  Cary  Settings 

390 

LAMP 

Assigned  Label  -  Lamp  &  Detector  Modes 

570 

MENU 

Assigned  Label  -  Main  Control  Menu 

10 

PARAMETERS 

Assigned  Label  -  Instrument  Setup  Menu 

400 

SPECTRUM 

Assigned  Label  -  Acquire  Spectrum 

90 

STORE 

Assigned  Label  -  Store  Disk  File 

700 

ASCII 

ASCII  code  for  a  command  output 

48 

MODE 

Controls  the  selection  of  AUTO  GAIN/SLIT 

0,1 

NARRAY 

Number  of  data  points  in  spectrum  -  file 

l -10001 

NCOL 

Number  of  screen  columns  in  menu  display 

50-70 

NDATA 

Number  of  data  points  in  spectrum  -  Acquire 

1-10001 

PREC 

Precision  for  rounding  function  in  Str 

3,4 

XMODE 

Selects  abscissa  data  format  in  Acquire 

1 

YMODE 

Selects  ordinate  data  format  in  Acquire 

1,2 

NPAR(49) 

Number  of  settings  for  each  parameter 

1-16 

OFFSET  (49) 

Index  offset  for  parameter  settings 

0-11 

PARAM(49) 

Instrument  operating  modes  table 

1-16 

Table  IV 


Glossary  of  REAL  Variables 


Name 


Description 


ORD 

ABSC 

CELL 

CYCLE 

SAMPLE 

WAVE 

TIMER 

DIST 


Final  ordinate  value  returned  by  Acquire 
Final  abscissa  value  returned  by  Acquire 
Final  cell  #  value  returned  by  Acquire 
Final  cycle  #  value  returned  by  Acquire 
Final  sample  #  value  returned  by  Acquire 
Final  wavelength  value  returned  by  Acquire 
Final  time  value  returned  by  Acquire 
Final  distance  value  returned  by  Acquire 


BAND 

CONC 

GAIN 

NUMBER 

PATH 

PMIN 

PMAX 

RATE 

RATIO 

SPECBAND 

SPECGAIN 

STEP 

WAVELENGTH 

WMIN 

WMAX 

XMIN 

XMAX 

XSTEP 

ZERO 


Spectral  Bandwidth  (nm)  -  AUTO  GAIN  mode 
Concentration  of  sample  (M)  -  file  variable 
Instrument  gain  -  AUTO  SLIT  mode 
General  purpose  data  entry  variable 
Pathlength  of  sample  cell  (cm)  -  file  variable 
Pen  scale  minimum  limit 
Pen  scale  maximum  limit 
Numeric  equivalent  of  scan  rate  parameter 
Variable  for  data  rate  &  slit  gain  checks 
File  variable  for  SBW  (nm)  at  \roin  (nm) 

File  variable  for  GAIN  at  (nm) 

Numeric  value  of  step  size  (nm)  interval 
Current  monochromator  position  (nm) 

Requested  ending  wavelength  for  scan 
Requested  starting  wavelength  for  scan 
File  variable  for  WMIN 
File  variable  for  WMAX 
File  variable  for  STEP 

Pen  scale  offset  variable,  %T  and  Deriv.  modes 


VARIABLE^ 4)  Instrument  operating  conditions  table 
X(10001)  Wavelength  array 

Y(10001)  Absorbance  or  %T  array 


Table  V 


Glossary  Of  CHARACTER  Variables 


Name  Description 


Screen  Control: 

BELL 
CLR*2 
DOWN*2 
ESC 

HOME*2 
UP*2 

Instrument  Status: 


Bdet 

Baseline  detector  mode 

Bgain*4 

Baseline  gain  setting 

Bgbw*4 

Baseline  SBW  or  GAIN,  depending  on  mode 

Blamp 

Baseline  lamp  mode 

Bmin*4 

Baseline  ending  wavelength 

Bmax*4 

Baseline  starting  wavelength 

Bperiod 

Baseline  filter  setting 

Brate 

Baseline  scan  rate 

Bsbw*4 

Baseline  spectral  bandwidth 

Bslit 

Baseline  slit  height 

Odet 

Previous  spectrum  detector  mode 

O  gain*  4 

Previous  spectrum  gain  setting 

Olamp 

Previous  spectrum  lamp  mode 

Omin*4 

Previous  spectrum  ending  wavelength 

Omax*4 

Previous  spectrum  starting  wavelength 

Operiod 

Previous  spectrum  filter  setting 

Orate 

Previous  spectrum  scan  rate 

Osbw*4 

Previous  spectrum  spectral  bandwidth 

Oslit 

Previous  spectrum  slit  height 

Sdet 

Spectrum  detector  mode 

Sgain*4 

Spectrum  gain  setting 

Stamp 

Spectrum  lamp  mode 

Smin*4 

Spectrum  ending  wavelength 

Smax*4 

Spectrum  starting  wavelength 

S  period 

Spectrum  filter  setting 

Srate 

Spectrum  scan  rate 

Ssbw*4 

Spectrum  spectral  bandwidth 

Sslit 

Spectrum  slit  height 

CHAR(7)  bell  character 
Clear  screen 

Move  cursor  down  1  line 
CHAR(27)  escape  character 
Move  cursor  to  upper  right  corner 
Move  cursor  up  1  line 
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Instrument  Control: 


Accon*3 

Accoff*3 

Autobal*4 

Command*44 

CSM 

Blstat*5 

Instr*4 

Key*  2 

Lock*  4 

Messon*3 

Messoff*4 

Par*3 

Parset*2 

Ready*4 

Response  *64 

Setup*  4 

Standby*4 

Start*4 

Stop*4 

String*14 

Unlock*4 

Var*3 

Varset*3 

Program  Control: 

Access(5)*4 

Astat*10 

Bscan*l4 

Bstat*10 

Btime*14 

Code 

Icode 

Pcode 

Pname(49)*10 

Printer(6)*12 

Pstr(49)*14 

Sstat*10 

TITLE*72 

Vname(14)*8 

Wlength*7 

File  Storage: 

DATE*8 
Directory*  40 
Fname*20 

initials*2 

Name*  16 
Outi'«le*63 


Turn  accessory  on  command 

Turn  accessory  off  command 

Perform  auto  balance  to  zero  reading 

String  of  instrument  commands  to  CARY 

Checksum  character  for  data  transmission 

Read  baseline  status  parameter  command 

Recall  instrument  setup  menu  display 

Press  key  command 

Lock  keyboard  command 

Send  message  to  line  4  of  CARY  display 

Clear  message  from  CARY  display 

Read  parameter  command 

Change  parameter  command 

Release  CARY  from  standby  mode 

String  for  reply  messages  from  CARY 

Record  trailer  setup  command 

Place  CARY  in  standby  mode 

Issue  a  start  command 

Issue  a  stop  command 

String  to  pass  data  to  or  from  subroutines 

Unlock  keyboard  command 

Read  variable  command 

Change  variable  command 


Accessory  status  (OFF,  ON) 

Auto  balance  status  (OFF,  SET) 

Scan  rate.  Baseline  screen  output 
Baseline  status  (OFF,  ON,  ON/MATCH) 

Filter  period.  Baseline  screen  output 

Menu  selection  variable 

Parameter  setting  in  ASCII  format 

Parameter  number  in  ASCII  format 

Table  of  names  for  each  parameter 

Printer  operating  mode 

Table  of  names  for  each  parameter  setting 

Spectrum  status  (OFF,  ACQUIRED,  STORED) 

String  to  be  printed  to  screen 

Table  of  names  for  each  variable 

Wavelength  in  ASCII  format  for  GOTO 


Date  in  mm/dd/yy  format 
Directory  pathname 
Filename  and  extension 
User's  initials  for  extension  Sxx 
Filename  without  extension 
Complete  pathname  for  file 
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1  FTN7X.L 

2  $FILES  0,1  !  *  Setup  One  Disk.  I/O  File 

3  $ALIAS  /MODE/ , NOALLOCATE  !  *  BLOCK  DATA  Holds  Values  Of  Named 

4  $ALI AS  /CARY/, NOALLOCATE  !  COMMON  Variables  So  Don't  Allocate 

5  $AL 1  AS  /IP/ .NOALLOCATE  !  Memory  For  These  Here  -  SCMTR  Will 

6  $ALIAS  /IS/ , NOALLOCATE  !  Create  Memory  For  These  As  Required 

7  $EMA  /DATA/  !  #  Use  EMA  Space  For  Large  Data  Arrays 

8  C 

9  r  ***************-*****************■*■******************■***•***■*■*•*•■*-*** 


PROCRAN  CARYSPEC 

*****ir*ic**'k'k'k'k'k'k'k*-k'k-k*'k'k'k'k-k'k1c'k1c'k1c'kjc't:'k'k'k*'k'k*'k'k-k'k-* *****  *********** 

This  Program  Is  Designed  To  Control  Data  Acquisition  From  The 
CARY  2390  UV-VIS-N1R  Spectrophotometer  Via  The  IEEE-488  Bus: 

The  CARY  2390  Is  Addressed  As  Device  #3  On  The  IEEE-488  Bus. 

The  HP  1000  Is  Configured  To  Operate  The  IEEE-488  Bus  In  ASCII 
Data  Record  Mode  With  Auto  Addressing  Enabled.  The  Bus  Occupies 
Logical  Unit  Addresses  35  -  38  (Device  Addresses  0-3).  LU  38 
Controls  The  CARY  2390  And  LU  35  Is  Used  To  Issue  Bus  Commands. 


AUTHOR:  Dr.  Robert  A.  B instead, 

Chemistry  Division,  Code  6125, 
Naval  Research  Laboratory, 
Washington.  D.C.  20375-5000 


WRITTEN:  December,  1986  -  January, 


VERS  I  ON : 


REVISED:  March,  1987: 


May,  1987 : 


Modified  to  store  Abscissa  (X)  array 
after  Ordinate  (Y)  values  to  prevent 
data  file  corruption  in  the  event  of 
missed  data  points  during  multiuser 
sessions  where  the  HP  1000  can  not 
keep  up  with  data  transmission  rate. 

Modified  MATCHING  criteria  between 
Spectrum  &  Baseline  to  omit  checks 
on  Scan  Rate  &  Period.  This  allows 
the  Baseline  scan  to  be  taken  under 
conditions  for  the  best  correction 
of  instrumental  artifacts. 

On  MISMATCHED  BASELINE  detection  the 
program  will  collect  a  new  baseline 
with  instrument  parameters  oee  i  f  i  ed 
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55  C 

56  C 

57  C 

58  C 

59  C 

60  C 

61  C 

62  C 

63  C 

64  C 

65  C 

66  C 

67  C 

68  C 

69  C 

70  C 

71  C 

72  C 

73  C 

74  C 

75  C 

76  C 

77  C 

78  C 

79  C 

80  C 

81  C 

82  C 

83  C 

84  c 

85  C 

86  C 

87  C 

88  C 

89  C 

90  C 

91  C 

92  C 

93  C 

94  C 

95  C 

96  C 

97  C 

98  C 

99  C 

100  C 

101  C 

102  C 

103  C 


for  the  spectrum  except  for  PERIOD 
and  SCAN  RATE  which  revert  to  those 
for  the  previous  baseline  scan. 

-  Altered  data  storage  routine  to  use 
default  or  specified  cartridge  it. 

June ,  1987 : 

-  Modified  Filename  convention  to  match 
the  use  of  Directory  Paths  in  the 
new  Cl  operating  system. 

-  Segmented  the  program  using  SCMTR 

to  fit  within  Cl's  smaller  boundary. 

August,  1987: 

-  Eliminated  INQUIRE  statement  for  FILE 
EXISTS  or  FILE  OPEN  check  since  this 
caused  a  memory  protect  error  in  the 
segmented  versions  if  the  filename 
was  already  in  use.  These  checks  are 
made  using  the  IOSTAT  number  returned 
by  the  OPEN  statement  instead. 

November , 1987 : 

-  Altered  updating  of  Variables  Table 
so  that  SBW  at  Smin  and  CAIN  at  Smax 
are  stored  in  Data  File. 

January,  1988: 

-  Placed  All  COMMON  Variables  In  Named 
COMMON  Blocks  To  Prevent  Them  From 
Being  Re-initialized  On  Calls  To  Other 
Nodes  Of  The  Multi-Level  Segmentation. 

-  Explicitly  Specified  Allocation  Of 
BLOCK  DATA  memory  Using  NOALLOCATE 
Compiler  Directives. 

-  Eliminated  Overwriting  Of  Data  File 
Variables  By  The  Wavelength  Reading 
Routine.  The  CALL  To  Acquire  Has 
Been  Augmented  To  Bypass  The  Usual 
Spectral  COMMON  Variables  in  /CARY/. 

February, 1988 : 

-  Removed  Single  Beam  Operation  Since 
The  Cary  Cannot  Acquire  A  Baseline 
In  This  Operating  Mode. 

-  Added  Tight  Checking  For  Improper 
Combinations  Of  Baseline  Detector, 

Lamp  and  Reference  Mode  Requests. 

-  Revised  AUTO  CAIN  vs  AUTO  SLIT  Mode 
Selection  In  Baseline  And  Instrument 
Setup  Menus  To  Utilize  Detector  Mode 
Under  AUTO  SELECT  Reference  Selection 

-  Added  Automatic  Adjustment  Of  SBW  And 
CAIN  Before  Scan  To  Match  Baseline. 


104  C 

105  C 

106  C 

107  C 

108  C 

109  C 

110  C 

111  C 

112  C 

113  C 

114  C 

115  C 

116  C 

117  C 

118  C 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128  C 

129  C 

130  C 

131 

132  C 

133  C 

134  C 

135 

136 

137 

138  C 

139  C 

140  C 

141 

142  C 

143  C 

144  C 

145 

146 

147 

148 

149 

150 

151 

152 

153  C 

154 

155 

156 

157 


MODES:  All  Abscissa  &  Ordinate  Modes  (SUBROUTINES) 

Absorbance  or  %T  vs  Wavelength  (PROGRAM  only) 


MEMORY:  28,000  Words  (Max. PATH)  +  40,000  Words  EMA  (DATA) 
3,000  Words  (MSEC)  +  5  Memory  Resident  Nodes 

-  83  Page  Partition  Required  - 


SEGMENT:  This  Program  Is  Too  Large  To  Run  Under  Cl  On  The 
HP  1000  -  It  Must  Be  Segmented  Using  SCMTR  And 
MLLDR  Loader  -  A  CMD  Transfer  File  SECMCARY.CMD 
Contains  The  Commands  To  Accomplish  This. 


INTEGER  ACCESSORY, ADVANCED, BASELINE, EXIT, INSTRUMENT 
INTEGER  LAMP .MENU, PARAMETERS , SPECTRUM , STORE 
I NTECER  ASCII, MODE , NARRAY , NCOL , NDATA , PREC , XMODE , YMODE 
INTECER  NPAR(49) ,OFFSET(49) ,PARAM(49) 

REAL  ORD , ABSC , CELL , CYCLE , SAMPLE , WAVE , T I MER , TEMP , D I  ST , BAND , CONC 
REAL  CAIN, NUMBER , PATH , PM I N , PMAX , RATE , RAT I O , S PECBAND , S P ECCA I N 
REAL  STEP , WAVELENGTH , WM I N , WMAX , XM I N , XMAX , XSTEP , ZERO 
REAL  VAR I ABLE (14) ,X( 10001) ,Y( 10001) 

LOGICAL  MATCH, PR I NT, SINGLE, TRANSFER 


Dimension  Screen  Control  String  Variables 
CHARACTER  BELL , CLR*2 , DOWN*2 , ERASE*2 , ESC , HOME* 2 , UP*  2 


Dimension  Instrument  Control  String  Variables 

CHARACTER  CSM , Lock* 4 , Un 1 ock*4 , Key*  2 , Accon*3 , Acco  f f*3 
CHARACTER  Par*3 , Var*3 , Par set *2 , Varset*2 , Messon*3 , Messo f f*4 
CHARACTER  Se t up*4 , Command*44 , Response*64 , S t  r i ng*l  4 

Dimension  Specific  Key  or  Function  String  Variables 

CHARACTER  Ready* 4 , St andby*4 , St  art *4 , S t op*4 , I nst  r*4 , Aut  oba 1 *4 

Dimension  Program  Parameter  Variables 


CHARACTER 

CHARACTER 

CHARACTER 

CHARACTER 

CHARACTER 

CHARACTER 

CHARACTER 

CHARACTER 


Sstat*10,Bstat*10,Astat*10, W1  engt h*7 
Di rect  ory*40 , Fname*20 , Name* 1 6 , Out  f i 1 e*63 
Smi n*4 , Smax*4 , S i nc*4 , Sdet , Sga i n*4 , S 1  amp , Sper i od 
Srate.Sref.Ssl it , Ssbw*4 

Bmi n*4 , Bmax*4 , Bde  t , Bga i n*4 , BI amp , Bper i od 
Brate.Bref.Bsl it , Bsbw*4 ,Fperiod,Frate 
Omi n*4 , Omax*4 , Of  nc*4 , Odet , Oga i n*4 , 01  amp . Oper i od 
Or at e , Ore  f , Os  I i t , Osbw*4 


CHARACTER 

CHARACTER 

CHARACTER 

CHARACTER 


DATE* 8 , 1NITIALS*2 ,TITLE*72 
Access(5)*4,Printer(6)*l2,Code, [code, Pc ode 
Pname (49)*10 , Vname ( 14) *8 , Bscan* 14 , Bt ime* 1 4 
Ps t  r ( 49 , 1 6) *1 4 


158  C 

159  C  - - -- 

160  C 

1 6 1  COMMON  /MODE/NDATA , XMODE , YMODE 

162  COMMON  /CARY/ORD, ABSC, CELL , CYCLE, SAMPLE , WAVE , TIMER , TEMP, D1 ST 

163  COMMON  /1P/NPAR, OFFSET, /J S/Pname , Vname 

164  COMMON  /DATA/Y.X 

165  C 

166  C  Reference  Library  IEEE-488  Subroutines 

167  C 

168  EXTERNAL  ABRT 

169  C 

170  C  - - - - - - 

171  C 

172  C  Initialize  Cary  Command  &  Status  String  Variables 

173  C 

174  DATA  CSM, Setup, Lock, Unlock,Key/'0’ , '@@20' , '@A10' , '@A00' , '@D'/ 

175  DATA  Accon, Accof f , Par, Var/’@F1 ’ , ’@F0' , '@C1 ' , '@G2'/ 

176  DATA  Parset ,Varset ,Messon,Messof f/’ @H’ , '@1 ' , 'Ll ’ , '@L00'/ 

177  DATA  Ready , Standby , Start /’@DT0 ' , '@DS0' , ’@DP0'/ 

178  DATA  Stop , Inst r , Autobal/’ @DQ0 1 , ' @DC0' , ' @DU0' / 

179  DATA  Sstat .Bstat .Astat/’  OFF* , *  OFF' , ’  OFF’/ 

180  C 

181  C  Initialize  Cary  Instrument  Settings  String  Arrays 

182  C 

183  DATA  (Pstr(l , I) , I-l ,6)/’ ABSORBANCE’ TRANSMISSION’ , 

184  &  ’ TEMPERATURE K  REFLECTANCE ’ , ' CONCENTRAT ION’  , ’  EMISSION’/ 

185  DATA  (Pstr(2, I) , 1-1 , 4)/’ WAVELENCTH’ , ’TIME’ , ’TEMPERATURE’ , 

186  &’ DISTANCE’/ 

187  DATA  (Pstr(3, I) , 1-1 , 11)/’ OFF’ , ’ 0 . 01 ’ , ’ 0 . 02 • , ’ 0 . 05 ’  , ’ 0 . 1 ’ , ’ 0 . 2 ’ , 

188  &’ 0.5’ , ' 1.0’ , ’2.0’ , ’5.0’ , ’10.0'/ 

189  DATA  Pst r (4,1)/’ OFF’/ 

190  DATA  (Pscr(4, I) ,I-6,15)/'0.2\ ’0.5’ , ’ 1.0’ , ’2.0*  , ’5.0’ , 

191  &’ 10’ , '20' , ’50’ , ’ 100’ , ' 200’/ 

192  DATA  (Pstr(5, I) , 1-1 ,4)/’AUTO  SELECT’ , ’AUTO  CAIN’ , 'AUTO  SLIT' , 

193  &’ S1NCLE  BEAM’/ 

194  DATA  (Pstr(6, I) , I-l ,5)/’OFF’ , 'NORMAL’  ,’  1ST  DERIV’,’2ND  DERI  V’ , 

195  & ’ LOG ’ / 

196  DATA  (Pst r (7 , I ) , 1-1 , 9)/’ 0 . 01 ’ ,’0.02 ’,’0.05 ’,’0.1’, ’0.2’, '0.5’, 

197  &’1.0’ ,’2.0’ ,’4.0'/ 

198  DATA  (Pstr(8, l) , 1-10, 16)/'2’ , ' 5' , ' 10' , ’ 20’ , ’ 50' , ’ 100 ’ , ' 200’/ 

199  DATA  (Pstr(9, I) , 1-12, 15)/’ 10’ , '20' , '50' 100’/ 

200  DATA  (Pscr(10, 1) , 1-1 ,5)/’ -l .9  TO  0.6', '-2.0  TO  0.5', 

201  &’ -2 . 1  TO  0.4' ,'-2.2  TO  0,3’ ,’-2.3  TO  0.2'/ 

202  DATA  (Pst r( 1 1,1), 1-1 , l6)/'+/-0.0\ • , ' +/-0 . 02 ' , ’ +/-0 . 05 ' , ’ +/-0 . 1 ’ . 

203  &'+/-0.2' , ’ +/-0.5’ ,’+/-!• 0’ , '+/-2.0' , ’+/-5.0’ , ' +/- 10 ' , ' +/-20 ’ . 

204  &’ +/-50 ’ , ’+/-100’ , ' +/-200 ' , ' +/-500 ’ , '+/-1000'/ 

205  DATA  (Pstr(12, I) , I-l , 16)/’+/ -0.01 ’ , ’+/-0.02’ , '+/-0.05' . ' r/-0  ! ' . 

206  ,  '  +/-0 . 5  ’  ,  '+/-1  .0’  , ’+/-2.0’  , '+/-5.0'  ,'+•/■  10’  ,  ’+/--0’  . 

207  &’  +/-S0’  ,  ’  -K/-100 *  ,  '+./-200'  ,  ' +/-500'  ,  '+/-1000'/ 

208  DATA  (Pstr(13, l) , I-l , 8)/' +/-0 . 01 ' , ' +/-0  02 ’ . ’ */-0 . 05 ' , ’ +/-0 . 1 ' . 

209  &’+/-0-2'  ,  '  +/-0 . 5 ’  ,'+/-!  .0’  ,  ’+./-2.0’/ 

210  DATA  (Pstr( 14 , I ) , I-l , 10)/’ 0’ , ' 10’ , '20' , ' 30' , ' 40’ , ' 50’ , ' 60’ . ' "O’ . 

211  & ’ 80 ’ , ’ 90  * / 
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212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240  C 

241 

242 

243  C 

244  C 

245  C 

246 

247 

248 

249 

250 

251 

252 

253  C 

254  C 

255  C 

256  C 

257  C 

258  C 

259  C 

260 
261 
262 

263 

264 

265 


DATA  (Pstr(15,l), 1-1,4)/' 0.5' .'1.0' ,'3.0' , '10'/ 

DATA  (Pstr(16,l),I-l,2)/’NORMAL' .'REVERSE'/ 

DATA  (Pst  r ( 17 , I) , I-l,2)/'OFF’ , ’ON’/ 

DATA  (Pstr(18, 1) , 1-1 ,2)/' REPEAT  SCAN ’ , ' SCL/MULT 1 1 / 

DATA  (Pst  r ( 19 , I ) , 1-1 , 2)/' SERIAL’ , ’OVERLAY’/ 

DATA  (Pst  r(20 , I) , 1-1 ,4)/' BOTH  ON’ , ' UV  ONLY' , 'VIS/NIR  ONLY’  , 

& ' BOTH  OFF'/ 

DATA  (Pstr(21 , I) , 1-1 , 3)/’ AUTO’ , ' UV' , ' VIS/NIR’ / 

DATA  (Pst  r(22 , I ) , 1-1 , 3)/’ AUTO' , 'UV/VIS' , 'NIR'/ 

DATA  (Pst r (23, I) , I-t ,2)/’ FULL’ , ' 1/3'/ 

DATA  (Pstr(24, I ) , 1-1 , 3)/' AUTO' , ' UV/VIS' , ’NIR'/ 

DATA  (Pst r (25, I) , 1-1 , 3)/' AUTO’ ,' UV' ,' VIS/NIR’ / 

DATA  (Pstr(26 , I ) , 1-1 ,4)/'aUTO  SELECT' , 'AUTO  CAIN' , 'AUTO  SLIT' , 

&' SINGLE  BEAM'/ 

DATA  (Pst r (27 , I ) , I— 1 ,2)/' FULL' ,’1/3'/ 

DATA  (Pstr(28,I),I— 1,6)/'0' ,'l' ,'2' ,'3' ,'4'  ,'5'/ 

DATA  (Pstr(29, I , , 1-1 , 2)/' STANDARDS ’ , 'UNKNOWNS'/ 

DATA  (Pst r (30, I) , 1-3 , 6)/' DIRECT' , 'LINEAR' , ' DIRECT-QUAD’ , 

&’ QUADRATIC’/ 

DATA  (Pstr(31,I),I— 7,8)/' NORMAL ' , 'AVERAGED'/ 

DATA  (Pstr(32 , I x , 1-9 , 13)/' SIGNAL  AV' , ’ SAMPLE  AV’ , ’QUICK’ , 

&' EXTENDED' , ’FIXED'/ 

DATA  (Pstr(33, I; , I-1,5)/'DSPL  RESULTS ’,’ DS PL  SETUP', 'NEXT  CONC' , 
&' DELETE  SAMPLE' , 'CLEAR  RESULTS'/ 

DATA  (Pstr(34, I) , 1-1 ,2)/'OFF' , 'ON'/ 

DATA  (Pstr(35,I),I— l,2)/’l* ,'2'/ 

DATA  (Pstr(38, I), 1-1,5)/'  OFF',’  ON' RECORD’ , '  ',’ ON/SETUP' / 
DATA  (Pstr(40, I) , 1-1,2)/’ INTERVAL' , ' ACCY- DRIVEN ’ / 

DATA  (Printer(I) , I— 1 ,3)/' WAVELENCTH’ , 'TIME' , 'TEMPERATURE'/ 

DATA  (Printer (I ) , 1-4 , 6)/' DISTANCE’ , 'MAX. mm' , 'MIN. mm’/ 

Initialize  Screen  Control  String  Variables 

BELL-CHAR(7) 

ESC-CHAR(27) 

CLR-ESC// ' J ' 

HOME— ESC// ' h ' 

UP— ESC//' A' 

DOWN— ESC//' B' 

ERASE— ESC//' K' 


Assign  Statement  Labels 


ASSICN  10  TO  MENU 
ASSIGN  90  TO  SPECTRUM 
ASSICN  200  TO  BASELINE 
ASSICN  350  TO  ADVANCED 
ASSICN  390  TO  INSTRUMENT 
ASSICN  400  TO  PARAMETERS 
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266 

ASSIGN 

570 

TO 

LAMP 

267 

ASSICN 

600 

TO 

ACCESSORY 

268 

ASSIGN 

700 

TO 

STORE 

269 

ASSICN 

900 

TO 

EXIT 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 


Data  Acquisition  and  Control  Menu 


!  Eliminate  Line  Wrapping  Problems 
!  Setup  Normal  Handshaking  With  Cary 
!  Release  Cary  From  Standby  Mode 


!  Display  instrument  Settings  On  Cary 
!  Turn  Off  Display  Messages  On  Cary 
!  Unlock  Keyboard  On  Cary 
!  Set  Display  To  70  Columns 


CALL  FFRCL(79) 

CALL  Send(Setup) 

CALL  Send(Ready) 

10  WRITE  (1 ,*)  HOME , CLR 
CALL  Send(Instr) 

CALL  Send(Messof f) 

CALL  Send(Unlock) 

NCOL-70 

TITLE-' Cary  2390' 

CALL  Center (TITLE) 

TITLE-' Spect ra 1  Data  Acquisition' 

CALL  Center (TITLE) 

WRITE  (1 , ' (T61 ,A2,A8) ' )  UP, 'Rev:  1.7' 

CALL  Line (NCOL) 

WRITE  (1,20)  'CODE' , 'FUNCTION' , 'STATUS’ , 'MIN' , 'MAX' ,' INC' 
20  FORMAT  (T4 , A4 , T14 , A8 , T34 , A7 , T50 , A3 , T58 , A3 , T66 , A3 ) 

CALL  Line (NCOL) 

WRITE  (1,30)  'A . Acquire  Spectrum . 

'B . Baseline  Setup . 

'I . Instrument  Settings... 

' L . Lamps/Detect  or s/Access 

'S . Store  File  on  Disk.... 

WRITE  (1,50)  'X . EXIT  Data  Acquisition,. 

30  FORMAT  (/,T4,A30,T35,A8,T50,A4,T58,A4,T66,A4) 

40  FORMAT  (/ , T4 , A30 , T35 , A8 , T50 , A4 , T58 , A4 ) 

50  FORMAT  (/,T4,A30) 

60  FORMAT  (/ , T4 , A30 , T35 , A20) 

WRITE  (1,*) 

CALL  Line (NCOL) 

WRITE  (1,*) 

70  WRITE  (1,*)  UP, ERASE, '_' 

WRITE  (l , ' (T3 ,A15 ,A,A2) ’ )  'Enter  the  CODE: ’, BELL, '_' 

READ  (1,80)  Code 
80  FORMAT  (Al) 

CALL  Upper (Code) 


WRITE  (1,40) 
WRITE  (1,50) 
WRITE  (1,50) 
WRITE  (1,60) 


,  Sst  at , Smi n , Smax , S i nc 
,  Bst at , Bmi n , Bmax 


,  Fname 


IF 

(Code . EQ. 

’A’  ) 

CO 

TO 

SPECTRUM 

IF 

(Code . E0. 

'  B'  ) 

CO 

TO 

BASELINE 

IF 

(Code . EQ. 

'  I’) 

CO 

TO 

INSTRUMENT 

IF 

(Code . EQ. 

’L') 

CO 

TO 

ADVANCED 

IF 

(Code . EQ. 

'S'  ) 

CO 

TO 

STORE 

IF 

(Code . EQ. 

■X'  ) 

CO 

TO 

EXIT 

CO 

TO  70 
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Acquire  Spectrum:  (Instrument  Baseline  Must  Match) 


l 


V 


320  C 

321  C 

322  C 

323  C 

324  C 
323  C 

326  90  CALL  Partabte(PARAM) 

327  IF  ((PARAM(38) .NE. 1) .OR. (Bstat .EQ. '  OFF'))  THEN 

328  WRITE  (1,*)  UP , ERASE , ' 

329  WRITE  (1,*)  '  Baseline  Program  Is  ABSENT:  ',BELL,'_' 

330  CALL  Wait (2.0) 

331  WRITE  (1,*) 

332  CO  TO  BASELINE 

333  END  IF 

334  IF  ( (PARAM( 1 ) . EQ. 2) .OR. (PARAM(2) ,NE . 0) )  THEN 

335  WRITE  (1,*)  UP, ERASE, 

336  WRITE  (1,*)  '  Ordinate  or  Abscissa  Error:  ',BELL,'_' 

337  CALL  Wait (2.0) 

338  WRITE  (1,*) 

339  CO  TO  INSTRUMENT 

340  END  IF 

341  IF  (Sstat .EQ. 'ACQUIRED' )  THEN 

342  100  WRITE  (1,*)  UP, ERASE,’  SPECTRUM  NOT  STORED:_' 

343  WRITE  (1,*)  '  Proceed  With  Spectrum  (Y  or  N)  ?  \BELL,’_' 

344  READ  (1,80)  Code 

345  CALL  Upper (Code) 

346  IF  (Code . EQ. ' N' )  CO  TO  70 

347  IF  (Code . NE. ' Y' )  GOTO  100 

348  END  IF 

349  C 

350  C  . - - - - - 

351  C 

352  C  Store  Previous  Spectrum's  Parameters  For  Possible  Abort 

353  C 

354  C  — - - - - 

355  C 

356  Omin-Smin 

357  Omax-Smax 

358  Oinc— Sine 

359  Odet-Sdet 

360  Ogaln-Sgain 

361  Olamp-Slamp 

362  Oper i od-Sper i od 

363  Orate-Srate 

364  Oref-SreF 

365  Os  1 i t-Ss l i t 

366  Osbw-Ssbw 

367  C  - - 

368  WRITE  (1,*)  HOME , CLR 

369  TITLE-' Scan  Parameters' 

370  CALL  Center (TITLE) 

371  CALL  Line(NCOL) 

372  WRITE  (1,*)  DOWN,'  BASELINE:' 

373  WRITE  ( 1 , *)  DOWN ,'  Scan  Limits,  (nm):  ' , Bmi n , ' /  Bmax 
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374  CALL  Val (Bmin.WMIN)  !  Default  Spectrum  To 

375  CALL  Val  (Bmax.WMAX)  !  Baseline  Scan  Limits 

376  WRITE  (1,*)  DOWN, DOWN,'  SPECTRUM:' 

377  WRITE  (1,*)  DOWN,'  Scan  Limits,  (nm) :  ' ,Bmin,'/  '.Brnax, 

378  &DOWN , DOWN 

379  110  WRITE  (1,*)  UP, ERASE,’  A... Accept,  C... Change,  X...Exit  ?  ’, 

380  &BELL, 

381  READ  (1,80)  Code 

382  CALL  Upper (Code) 

383  IF  (Code . EQ. ' X' )  CO  TO  MENU 

384  IF  (Code .EQ. ' A' )  CO  TO  120 

385  IF  (Code .NE. ' C' )  CO  TO  110 

386  CALL  Limits(WMIN,WMAX) 

387  120  CALL  St r (WMIN , S t r i ng , 4) 

388  Smin-String(2:5) 

389  CALL  Str(WMAX, String, 4) 

390  Smax-String(2:5) 

391  WRITE  (1,*)  UP, ERASE, UP, UP, ERASE, '  Scan  Limits,  (nm) : 

392  &Smin, ' /  ' , S max , DOWN , DOWN 

393  130  WRITE  (1,*)  UP, ERASE,'  Step  Size  (.01  -  5  nm)  :  ',BELL,’_' 

394  READ  ( 1 ,* , ERR-130)  STEP 

395  IF  ((STEP. LT. 0.01) .OR. (STEP. CT. 5.0))  CO  TO  130 

396  CALL  Str(STEP, String, 4) 

397  Sinc-String(2:5) 

398  140  CALL  Val (Pst r (3 , PARAM(3)+1 ) , RATE) 

399  RATE-RATE/STEP 

400  IF  (RATE. CT. 5.0)  THEN 

401  WRITE  (1,*)  UP, ERASE,'  Data  Rate  >  5  Hz  - 

402  WRITE  (1,*)  'RESET  Scan  Rate,  (Y  or  N)  ?  ', 

403  &  BELL ,  '  _ ' 

404  READ  (1,80)  Code 

405  CALL  Upper (Code) 

406  IF  (Code .NE. ' Y' )  CO  TO  130 

407  N— 3 

408  K-N 

409  CALL  Select (N.PARAM, Pst r) 

410  PARAM(K)-N-1  !  Update  Parameter  Table 

411  CO  TO  140 

412  END  IF 

413  NDATA-INT((WMAX-WMIN)/STEP+.5)+l 

414  IF  (NDATA.CT. 10001)  THEN 

415  WRITE  (1,*)  UP, ERASE,’  Too  Many  Data  Points  - 

416  WRITE  (1,*)  'Increase  Step  Size  _’,BELL 

417  CALL  Wait (2.0) 

418  GO  TO  130 

419  END  IF 

420  WRITE  (1,*)  DOWN,'  Checking  instrument  Set t i ngs :', BELL 

421  CALL  GOTO(Bmax)  !  Test  Matching  At  Start  Of  Baseline  Scan 

422  C 

423  C  — - - 

424  C 

425  C  Set  Spectrum  Strings  to  Match  Instrument  Parameters 

426  C 

427  C  - 
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428  C 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440  C 

441  C 

442  C 

443  C 

444  C 

445  C 

446  C 

447 
443 

449 

450 

451 

452 

453 

454  C 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464  C 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 


Sde t -CHAR ( PARAM( 22 ) +48 ) 

S l amp— CHAR ( PARAM ( 2 1 )+48) 

S pe r i od-CHAR ( PARAM < 1 5 ) +4 8 ) 

S r a t e-CHAR( PARAM ( 3 ) +4 8 ) 

S r e f-CHAR ( PARAM ( 5 ) +4 8 ) 

Ss l 1 t— CHAR (PARAM (23) +4 8) 

CALL  Vartable(VARlABLE)  !  Update  SBW,  GAIN  at  Bmax 

CALL  Str(VARIABLE(10) .String, 4) 

Ssbw-St  r ing(2 : 5) 

CALL  Str(VARIABLE(6) .String, 4) 

Sgai n-S t  r ing(2 : 5) 


Test  For  Acceptable  Instrument  Baseline  Matching 


MATCH-TRUE. 

IF  (WMAX.CT.VARIABLE(3))  MATCH-. FALSE. 
IF  ( WM I N . LT . VAR I ABLE ( 4 ) )  MATCH- . FALS E . 
IF  (Sref  NE.Bref)  MATCH- . FALS E . 

IF  (Slamp.NE.Blamp)  MATCH- . FALS E . 

IF  (Sdet .NE.Bdet)  MATCH- . FALS E . 

IF  (Ssl it .NE.Bsl it)  MATCH-. FALSE. 


IF  ((MODE.EQ. 1) .AND. (MATCH))  THEN  !  Exit  If  Already  Failed 
IF  (Ssbw.NE. Bsbw)  THEN 

WRITE  (1,*)  UP, ERASE,’  Matching  To  Baseline  SBW: '.BELL 
Command-Varset//' 9 ' //Bsbw//’ ! 0 ' 

CALL  Send(Command) 

Ssbw-Bsbw 
CALL  Wa i t ( 1 . 0 ) 

END  IF 
END  IF 


IF  ((MODE.EQ. 2) .AND. (MATCH))  THEN  !  Exit  If  Already  Failed 
IF  (Sgain.NE. Bgain)  THEN 

WRITE  (1,*)  UP, ERASE,'  Matching  To  Baseline  CAIN:’, BELL 
Command-Varset//' 5 ' //Bga  in//' ! 0 ' 

CALL  Send(Command)  !  Reset  AUTOSLIT  Cain  Level 

Sgain-Bgain 

CALL  Wait (2.0) 

END  IF 

IF  ((Bref .EQ. 'O' ) .AND. (Bdet .EQ. 'O' ) . AND. (WMAX.LE.800 . 0) )  THEN 
WRITE  (1,*)  UP, ERASE,'  Matching  To  Baseline  SBW:', BELL 
Wlength-' 800.5' 

CALL  COTO(Wl engt h )  !  Reset  To  NIR  Region 

CALL  Wait (1 .0) 

Wlength-' 800.0' 

CALL  COTO(Wlength)  !  Set  To  Start  Of  UV/VIS 

END  IF  !  with  Matching  SBW 

END  I F 
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IF  (MATCH)  CO  TO  150 


482 

483  C 

484  C 

485  C 

486  C  Record  New  Baseline  Using  Present  Instrument  Parameters 

487  C  With  Period  &  Scan  Rate  From  The  Previous  Baseline  Scan 

488  C 

489  C  - - - - 

490  C 

491  WRITE  (1,*)  DOWN, DOWN 

492  TITLE-'###  NEW  BASELINE  REQUIRED  ###' 

493  CALL  Center (TITLE) 

494  WRITE  (1,*)  BELL 

495  CALL  Wait (2.0) 

496  MATCH-. TRUE.  !  Baseline  Valid  Test  On  Exit 

497  CALL  B1 ine(WMIN, WMAX, Sde t , Sga i n, S 1  amp , Fper i od , Frat e , Sre f , Ssbw , 

498  &Ssl it ,Bscan,Bt ime .MATCH, MODE) 

499  Command— Parset//'>'//Speriod//CSM  !  Reset  To  Spectrum's  Period 

500  CALL  Send(Command) 

501  Command-Parse t//' 2'//Srate//CSM  !  Reset  To  Spectrum's  Rate 

502  CALL  Send(Command) 

503  IF  (.NOT. MATCH)  THEN 

504  Sstat-'  OFF'  !  Aborted  Scan  Exit 

505  CO  TO  MENU 

506  END  IF 

507  C 

508  C  — - - 

509  C 

510  C  Update  Baseline  Parameter  Strings 

511  C 

512  C  - - 

513  C 

514  Bmin-Smin 

515  Bmax-Smax 

516  Bdet-Sdet 

517  Bgair^Sgaln 

518  B 1 amp— S 1 amp 

519  Bperiod— Fper iod 

520  Brate-Frate 

521  Eref-Sref 

522  Bsbw— Ssbw 

523  Bslit-Sslit 

524  Bs tat- 'ON/MATCH' 

525  C  - 

526  150  WRITE  (1,*)  HOME , CLR 

527  TITLE-' Acqui re  Spectrum' 

528  CALL  Center (TITLE) 

529  CALL  Line(NCOL) 

530  WRITE  (1,*)  DOWN,'  Wavelength  Limits,  (nm) :  ' , Smax , ' /  '.Smin 

531  WRITE  (1,*)  DOWN,'  Step  Size,  (nm/datum)  :  'Sine 

532  WRITE  (1,+)  DOWN,'  Scan  Rate,  (run/sec'i  :  ’  , 

533  StPst  r  (3  ,  PARAM(3)  +  1 ) 

534  WRITE  (1,*)  DOWN,’  Response  Time,  (sec)  : 

535  &Pst  r ( 15 , PARAM( 15)  +  l ) 


536  IF  (MODE. EQ. 1 )  THEN 

537  VI/RITE  (1,*)  DOWN,'  Spectral  Bandwidth,  (nm)  :  '.Ssbw 

538  CO  TO  160 

539  END  IF 

540  WRITE  (1,*)  DOWN,'  AUTOSLIT  Cain  Level  :  \Sgain 

541  160  WRITE  (1,*)  DOWN 

542  WRITE  (1,*)  DOWN,'  Place  Solution  Cell  In  The  SAMPLE  Beam:’ 


543  WRITE  (1,*)  DOWN,'  S . Start  Scan’ 

544  WRITE  (1,*)  DOWN,'  A . Abort  Scan' 


545  WRITE  (1,*)  DOWN,'  Enter  the  CODE:  ' ,BELL,'_' 

546  170  READ  (1,80)  Code 

547  CALL  Upper (Code) 

548  C 

549  C  - 

550  C 

551  C  Restore  Old  Spectrum's  Parameter  Strings 

552  C 

553  C  - 

554  C 

555  IF  ( Code . EQ . ' A ' )  THEN 

556  Smin— Omin 

557  Smax-Omax 

558  Sinc-Olnc 

559  Sdet-Odet 

560  Sgain-Ogain 

561  Slamp-Olamp 

562  Sper iod-Oper iod 

563  Srate-Orate 

564  Sref-Oref 

565  Sslit-Oslit 

566  Ssbw-Osbw 

567  CO  TO  MENU 

568  END  IF 

569  IF  (Code .NE. ' S' )  GO  TO  170 

570  C 

571  C  - - 

572  C 

573  C  Set  To  Starting  Wavelength  -  Check  For  Instrument  Ready 

574  C 

575  C  - - - - - 

576  C 

577  WRITE  (1,*)  UP, ERASE, UP, UP, ERASE, UP, UP, ERASE, UP, UP, ERASE, 

578  WRITE  (1,*)  '  Slewing  to  Starting  Wave  I engt h : '  , BELL 

579  CALL  COTO(Smax) 

580  S INCLE— . FALSE .  !  Scan  Mode  ON,  Single  Wavelength  OFF 

581  PRINT-. FALSE.  !  Initialize  Print  Mode  To  OFF 

582  180  WRITE  (1,*)  UP, ERASE,'  Print  to  Screen,  (Y  or  N)  ?  ',BELL,'_' 

583  READ  (1,80)  Code 

584  CALL  Upper (Code) 

585  IF  (Code . EQ. ' Y' )  THEN 

586  PRINT-. TRUE. 

587  CO  TO  190 

588  END  IF 

589  IF  (Code . NE. ' N' )  CO  TO  180 


590  C 

591  C 

592  C 

593  C 

594  C 

595  C 

596  C 

597  C 

598 

599 

600 

601  C 

602 

603  C 

604 

605 

606 

607  C 

608  C 

609  C 

610  C 

611  C 

612  C 

613  C 

614  C 

615 

616  C 

617  C 

618  C 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633  C 

634  C 

635  C 

636  C 

637  C 

638  C 

639  C 


Select  Data  String  Format  For  Abscissa  &  Ordinate  In 
SUBROUTINE  Acquire  Via  COMMON  Variables  XMODE  &  YMODE 


190  YMODE-PARAM ( 1 ) + 1 
XMODE— PARAM ( 2 ) + 1 
S  PECCA I N-VAR I ABLE ( 6 ) 


YMODE  -  1  -  6  (Only  1  &  2  Allowed) 
XMODE  -  1  -  4  (Only  1  Allowed) 

Save  CAIN  Value  At  Smax  For  Data  File 


WRITE  (1,*)  UP, ERASE, '  Scanning  Spect rum: ', BELL 


CALL  Send(Instr) 
CALL  Send(Lock) 
CALL  Wait(l .0) 


!  Display  Instrument  Settings  On  Cary 
!  Lock  Keyboard  On  Cary  During  Scan 
!  Wait  For  Cary  To  Finish  Housekeeping 


***  Data  Collection  Subroutine  *** 

Collects  NDATA  Readings  At  Sine  (run)  Steps  And 
Returns  Spectrum  In  Arrays  (X) , (Y)  Via  EMA  COMMON 
Final  Reading  Is  Returned  Via  Named  COMMON  /CARY/ 

CALL  Acqu i r e ( S i nc , PR I NT , S I NCLE , WAVELENGTH) 


CALL  Terminate 
CALL  Wait (1.0) 

CALL  Send(Setup) 

CALL  Send(Stop) 

CALL  Send( Unlock) 

CALL  Vart able (VAR I ABLE) 

SPECBAND-VAR I ABLE (10) 

CALL  GOTO (Smax) 

NARRAY-NDATA 

XMIN-WMIN 

XMAX-WMAX 

XSTEP-STEP 

Ss tat-' ACQUIRED' 

CO  TO  MENU 


!  UNTALK  Cary  2390  From  IEEE-488  Bus 
!  Wait  For  Cary  To  Finish  Housekeeping 
!  Re-establish  Normal  Handshaking 
1  STOP  Key  Issued 
!  UNLOCK  Keyboard 

!  Update  Instrument  Variables  To  Obtain 
!  Value  Of  Spectral  Bandwidth  At  Smin. 

!  Return  To  Starting  Wavelength 
!  Save  #  Of  Data  Points  In  File  Variable 
!  Save  End  Of  Scan  In  File  Variable 
!  Save  Start  Of  Scan  In  File  Variable 
!  Save  Step  Size  In  File  Variable 


Baseline  Call  and  Status  Check 
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640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659  C 

660 

661  C 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681  C 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 


200  MATCH-. TRUE. 

TRANSFER-. FALSE. 

210  WRITE  (1,*)  UP, ERASE,'  Reading  Instrument  Base  1 i ne :  '.BELL,' 


CALL  Partable(PARAM) 
Bstat-Pst  r (38 , PARAM(38)  +  1 ) 
IF  ( PARAM ( 3 8 ) . CT . 1 )  Bstat-’ 
CALL  Var t  ab 1 e ( VAR I ABLE ) 
WMAX-N I NT ( VAR l ABLE ( 3 ) ) 
WMIN— NINT (VARIABLE (4) ) 
BAND-VAR I ABLE ( 2 ) / 1 000 . 0 
CAIN— VARIABLE(2)/10 . 0 
220  PREC-4 

IF  (WMAX.LT. 1000.0)  PREC-3 
CALL  Str(WMAX, String, PREC) 
Bmax-St r lng(2 : 5) 

PREC-4 

IF  (WMIN. LT. 1000.0)  PREC-3 
CALL  Str(WMIN, String, PREC) 
Bmin-S t  r i ng(2 : 5) 


IF  (TRANSFER)  CO  TO  MENU 


'  //Pst  r (38 , PARAM(38)  +  1 ) 


Only  One  Of  SBW  Or  CAIN  Is  Stored 
By  The  Cary  For  The  Baseline  Scan 
-  Decide  Below  Which  Is  Valid. 


!  EXIT  After  Return  From  Bline 


IF  (WMAX.CT. 900.0)  THEN 

IF  (PARAM(24) .EQ. 1)  PARAM(24)-0  ! 
IF  (PARAM(26) .EQ. 1)  PARAM(26)-0  ! 

END  IF 

IF  (WMIN. LT. 700.0)  THEN 

IF  (PARAM(24) .EQ.2)  PARAM(24)-0  ! 

END  IF 

IF  (PARAM(24) .EQ.2)  THEN 

IF  (PARAM(26) .EQ. 1)  PARAM(26)-0  ! 

END  IF 

IF  ( (PARAM(24) . EQ. 0) . AND. (PARAM(26) . EQ 
IF  (WMAX.CT. 800.0)  PARAM(24)-1  ! 

END  IF 

IF  (WMAX.CT. 400.0)  THEN 

IF  (PARAM(25) .EQ. 1)  PARAM(25)-0  ! 

END  IF 

IF  (WMIN. LT. 270.0)  THEN 

IF  (PARAM(25) .EQ.2)  PARAM(25)-0  ! 

END  IF 


Bad  UV/VIS  Detector  Mode 
Bad  AUTO  CAIN  Ref.  Mode 


Bad  NIR  Detector  Mode 


Bad  NIR  Reference  Mode 
. 1 ) )  THEN 

Bad  AUTO  Detector  Mode 


Bad  UV  Lamp  Mode 


Bad  W  Lamp  Mode 


Bpe r i od-CHAR ( P ARAM ( 1 5 ) +4 8 ) 
Brat  e-CHAR ( PARAM ( 3 ) +48 ) 

Bde t -CHAR ( P ARAM ( 2 4 ) + 4 8 ) 

B 1 amp-CHAR ( P ARAM ( 2 5 ) +4 8 ) 

Br e f-CHAR ( PARAM( 26 ) +4 8 ) 

Bsl it -CHAR (PARAM (27) +4 8) 

IF  (Bref .EQ. ’2' )  CO  TO  230 
IF  (Bdet . EQ. '2' )  CO  TO  230 
IF  (WMAX.CT. 900.0)  CO  TO  230 
IF  (WMAX.CT. 800.0)  THEN 
IF  (Bdet .EQ. 'O' )  CO  TO  230 
END  IF 


!  AUTOSLIT  Mode  On  (Both  Detectors) 
!  NIR  Detector  ->  AUTOSLIT  Mode 
!  Lambda  >  900  ->  AUTOSLIT  Mode 

'  AUTO  Detector  ->  AUTOSLIT  Mode 
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694  C 

695 

CALL  Str(BAND, String, 4) 

696 

Bs  bw-S  t  r i ng ( 2 : 5 ) 

!  SBW  Fixed  At  The  Scart  Of  Scan 

697 

Bgain-'  ' 

!  Cain  Variable  During  Scan 

698 

MODE-l 

699 

CO  TO  240 

700 

230  CALL  Str(CAIN, String, 4) 

701 

Bga in-St  ring (2:5) 

!  CAIN  Fixed  At  The  Start  Of  Scan 

702 

Bsbw-'  ’ 

!  SBW  Variable  During  Scan 

703 

MODE-2 

704 

240  Command-Key//' HO ' 

!  Display  Baseline  Menu  On  Cary 

705 

706 

707  C 

CALL  Send (Command) 

CALL  Send(Messof f ) 

!  Turn  Off  Any  Display  Messages 

708 

WRITE  (1,*)  HOME , CLR 

709 

TITLE-' Base  1 ine  Setup' 

710 

CALL  Center (TITLE) 

711 

CALL  Line(NCOL) 

712 

WRITE  (1,250)  ' INDEX' , 'FUNCTION' , 'SETTING' 

713 

CALL  LINE(NCOL) 

714 

WRITE  (1 ,*) 

715 

WRITE  (1,260)  ' 0 . 

.  .  AUTO  BALANCE . '  , 

716 

&Astat 

717 

WRITE  (1,260)  '  1 . 

.  .BASELINE  STATUS . ’  , 

718 

SiBstat 

719 

WRITE  (1,280)  ' 2 . 

.  . WAVELENGTH  (Max, Min) . . . '  , 

720 

&Bmax , ' , ' , Bmi n 

721 

WRITE  (1,280)  ' 3  . 

.  .SBW  (run)  ,  CAIN . ’  , 

722 

&Bsbw, ' , ' , Bga in 

723 

WRITE  (1,270)  ' 4 . 

.  .  REFERENCE  MODE . ’  , 

724 

&Pst r ( 26 , PARAM( 26 ) +1 ) 

725 

WRITE  (1,270)  ' 5  . 

.  .LAMP  SELECT . '  , 

726 

&Pstr(25,PARAM(25)+l) 

727 

WRITE  (1,270)  ' 6 . 

.  .DETECTOR  SELECT . '  , 

728 

&Pst  r (24 , PARAM(24)  +  1 ) 

729 

WRITE  (1,270)  ' 7  . 

.  .SLIT  HEICHT . ’  , 

730 

&Pstr(27 , PARAM(27)+1 ) 

731 

WRITE  (1,270)  ' 8:  '  ,  ' . .  . 

..SCAN  RATE  (nm/sec) . ’, 

732 

fitPs  t  r  (  3  ,  PARAM  (  3 )  + 1 ) 

733 

WRITE  (1,270)  ' 9 . 

.  .RESPONSE  TIME  (sec) _ '  , 

734 

&Pst  r ( 15 , PARAM( 1 5)  +  l ) 

735 

WRITE  (1,260)  ' X: ' , ' . . . 

.  .EXIT  Base  line  Menu . '  , 

736 

&’  ' 

737 

250  FORMAT  (T4 , A5 , T20 , A8 , T40 , A7) 

738 

260  FORMAT  (T4 , A3 , T10 , A28 , A8) 

739 

270  FORMAT  (T4 , A3 , T10 , A28 , T40 , A1 4) 

740 

280  FORMAT  (T4 , A3 ,T10 , A28 , T40 , A4 , A , A4) 

741 

'WRITE  (1  ,*) 

742 

CALL  Line(NCOL) 

743 

WRITE  (1,*) 

744 

290  WRITE  (1,*)  UP, ERASE,’ 

INDEX  Code :  ' , BELL, '_' 

745 

READ  (1,80)  Code 

746 

CALL  Upper (Code) 

747 

IF  (Code . EO . 'X' 1  CO  TO 

330 

49 


748 

749 

750  C 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765  C 

766 

767 

768 

769 

770 

771 

772 

773 

774  C 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 
801 


N-ICHAR(Code) -48 

IF  ((N.LT.O) .OR. (N.CT.9) )  CO  TO  290 


IF  (N.EQ.O)  THEN 
CALL  Send(Autobal ) 
Astat-'  SET' 

CO  TO  220 
END  IF 

IF  (N.EQ. 1)  N-38 
IF  (N.EQ. 2)  CO  TO  300 
IF  (N.EQ. 3)  CO  TO  310 
IF  (N.EQ. 4)  N-26 
IF  (N.EQ. 5)  N-25 
IF  (N.EQ. 6)  N-24 
IF  (N.EQ. 7)  N-27 
IF  (N.EQ. 8)  N-3 
IF  (N.EQ. 9)  N— 15 


Update  Wavelength  Limits 
Update  SBW/CAIN 


Slit  Control  Is  Manual  Only 


K-N 

CALL  Se lect (N , PARAM, Pst  r) 
PARAM(K)-N-1 
IF  (K.EQ.38)  THEN 
WRITE  (1 , ’ (T12.A) ' ) 

CO  TO  200 
END  IF 
CO  TO  220 


Instrument  Baseline  PARAMETERS  Are 
Masked  From  Direct  Changes  -  The 
NEW  Values  Are  Only  Accepted  From 
SUBROUTINE  Bline's  ' @J '  Command. 


300  CALL  Li mi ts(WMIN.WMAX) 

MATCH-. FALSE. 

CO  TO  220 

310  WRITE  (1,*)  UP, ERASE, 

IF  (MODE. EQ. 2)  CO  TO  320 

WRITE  (1,*)  '  Spectral  Bandwidth  (0.04  -  3.60  nm)  -  '.BELL, 
READ  (1 ,*,ERR-310)  BAND 

IF  ((BAND. LT. 0.04) .OR. (BAND. CT. 3. 60))  CO  TO  310 
CO  TO  220 


320 


String-1 (1-1275) 1 

IF  (PARAM(24) .NE.2)  String-’(1  -  1000)' 

WRITE  (1,*)  '  Cain  Level  ' , St r i ng( 1 : 10) , '  -  ' ,BELL,'_' 
READ  (1 ,*,ERR-310)  NUMBER 

IF  ((NUMBER.LT. 1 .0) .OR. (NUMBER. CT. 1275.0))  CO  TO  310 
IF  ((NUMBER. CT. 1000.0) .AND. (PARAM(24) .NE.2))  CO  TO  310 

CAIN-VARIABLE(6) 

RATIO-NUMBER/CAIN 
IF  (RATIO. CT. 10.0)  THEN 
WRITE  (1,*)  UP, ERASE, 

WRITE  (1,*)  '  Setting  Instrument  Cain:  ,,BELL,'_’ 
CALL  Wait (2.0) 


Command-Parse t//' 420 ' 
CALL  Send(Command) 
WRITE  ( 1 ,*) 

TRANSFER-. TRUE. 

CO  TO  490 
END  IF 


!  Set  AUTOSLIT  Mode  Prior 
'.  To  Sending  Sew  CAIN  Level 

!  Transfer  To  Instrument 
!  CAIN  Setting  Routine 


50 


CA IN-NUMBER 
CO  TO  220 


802 

803 

804  C 

805  C 

806  C 

807  C 

808  C 

809  C 

810  C 

811 
812 

813 

814 

815 

816 

817 

818 

819 

820 
821 
822 

823 

824 

825 

826 

827 

828 

829  C 

830  C 

831  C 

832  C 

833  C 

834  C 

835  C 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 
355 


Record  Baseline  Scan  In  CARY  2390 


330  WRITE  (1,*)  UP, ERASE, 

WRITE  (1,*)  '  Record  NEW  Baseline,  (Y  or  N)  ?  ',BELL,'_' 

READ  (1,80)  Code 
CALL  Upper (Code) 

IF  (Code . EQ. 1  N"  )  CO  TO  340 
IF  (Code .NE. ‘Y’ )  CO  TO  330 
MATCH-. FALSE. 

I-ICHAR(Brace) -48 
Bscan-Ps  t  r ( 3 , 1  + 1 ) 

I-ICHAR(Bper iod) -48 
Bt ime-Pst  r ( 15 , 1  +  1 ) 

CALL  B1 i ne ( WM1 N , WMAX , Bde t , Bga i n , B 1  amp ,Bperiod,Brate,Bref,Bsbw. 
&Bs lit, Bscan , Bt ime , MATCH, MODE) 

Fper iod-Bper iod 
Frat  e-Brat  e 
Astat-1  SET1 

340  TRANSFER-. TRUE.  !  Perform  An  Alternate  Return  To  The  Main  MENU 
GO  TO  210  !  After  Reading  Instrument  Baseline  Parameters 


Menu  of  Advanced  Setup  Operations 


350  WRITE  (1,*)  HOME , CLR 

TITLE-1 Advanced  Operations  Menus' 

CALL  Center (TITLE) 

NCOL-50 

CALL  Line(NCOL) 

WRITE  (1, '(T15,A5,T30,A14)')  ' INDEX' CROUP  FUNCTION’ 

CALL  Line(NCOL) 

WRITE  (1 ,*) 

WRITE  (1,360)  '1:  . LAMPS  &  DETECTORS . ' 

WRITE  (1,360)  '2:  . ACCESSORY  SETTINGS . ' 

WRITE  (1,360)  '3:  . AUTOMATIC  OPERATION . ' 

WRITE  (1,360)  'X:  . EXIT  TO  SETUP  MENU . ' 

WRITE  (1 ,*) 

CALL  Line(NCOL) 

360  FORMAT  (T17.A35) 

WRITE  (1 ,*) 

370  WRITE  ( 1 , ' (T1 5 , A2 , A2 , A9 . A , A) ' )  UP , ERASE , ' I NDEX  *;  '.BELL. 
READ  (1,80)  Code 
CALL  Upper (Code) 

IF  (Code . EQ. 'X' )  CO  TO  MENU 


51 


856 

857 

858 

859 

860 
861 
862 

863 

864 

865  C 

866  C 

867  C 

868  C 

869  C 

870  C 

871  C 

872 

873 

874 

875 

876 

877 

878 

879 

880 
881 
882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 


N- I CHAR (Code) -48 
IF  (N.EQ. 1)  CO  TO  LAMP 
IF  (N.EQ. 2)  CO  TO  ACCESSORY 
IF  (N.EQ. 3)  CO  TO  380 
CO  TO  370 

380  WRITE  (1,'(T13,A2,A2,A)')  UP , ERASE, 

WRITE  (1,*)  '  Not  Supported  Inversion  l.X  ' ,BELL,'_' 
CALL  Wait (2.0) 

GO  TO  ADVANCED 


Display  and  Update  Instrument  Settings 


390  WRITE  (1,*)  UP , ERASE , '  Reading  Wavelength:  1 , BELL , ' 

NDATA-1 
O I nc— ' 1 ' 

PRINT-. FALSE.  !  No  Display  Required 

S INCLE— .TRUE.  !  Select  Wavelength  Update 

CALL  Partable(PARAM) 

YMODE-PARAM(l)+l  !  Set  Data  String  Format 

XMODE-2 

Icode-CHAR(PARAM(2)+48)  !  Save  Abscissa  Mode 

Command-Parse t//' 1 10 '  !  Set  Abscissa  -  TIME 

CALL  Send(Command) 

CALL  Send(Setup) 

CALL  Wait (0.5) 

CALL  Acqu i r  e ( O i nc , PR I NT , S I NCLE , WAVELENCTH ) 

CALL  Terminate 
CALL  Wait (0.5) 

CALL  Send(Setup) 

CALL  Send(Stop) 

Command-Parse t//' 1 ' / / I code / /CSM 

CALL  Send(Command)  !  Restore  Abscissa  Mode 

WRITE  (1,*) 

WRITE  (1 ,*)  UP, 

400  WRITE  (1,*)  ERASE,'  Reading  Instrument  Settings:  ' ,BELL,'_' 
CALL  Partable(PARAM) 

CALL  Vart able (VARIABLE) 

BAN1>“VAR I ABLE ( 1 0 )  !  Current  SBW  (nm) 

CAIN-VARIABLE(6)  !  Current  CAIN  Level 

CALL  Va  1  ( Ps  t  r  ( 8  ,  PARAM  ( 8 )  + 1 )  ,  PMAX)  !  Pen  Limits,  KT  Sc  HR 
PM I N— VAR lABLE(ll) 

IF  (PARAM(l) .EQ.0)  THEN  !  Pen  Limits,  Absorbanc 

CALL  Val (Pst  r (7 , PARAM(7)  +  1 ) , PMAX) 

PM I N— VAR  I ABLE ( 1 ) 

END  IF 

IF  (PARAM( 1 ) . E0. 2)  THEN  !  Pen  Limits,  Temperatt 

CALL  Vai (Pstr(9, PARAM(9)+1 ) , PMAX) 

CALL  Val (Pst  r ( 1 4 , PARAM ( 1 4 )  +  l ) ,PMIN) 

END  IF 

PMAX- PM l N+ PMAX 


!  No  Display  Required 
!  Select  Wavelength  Update  Mode 

!  Set  Data  String  Format 

!  Save  Abscissa  Mode 
!  Set  Abscissa  -  TIME 


!  Current  SBW  (nm) 

!  Current  CAIN  Level 
!  Pen  Li  mi  ts  ,  HT  Sc  HR 

!  Pen  Limits,  Absorbance 


!  Pen  Limits,  Temperature 


910 

911 

912 

913 

914  C 

I  —  1 1  !  Index  For  Deriv.  Range 

IF  (PARAM(6) . EQ . 4)  1-10  !  Index  For  Log  Zero  Range 

St r i ng— Pst r ( I , PARAM( I )+l )  !  Pen  Range  Label  For  Index 

CALL  Send(Instr)  !  Display  Instrument  Menu 

915 

WRITE  (1,*)  HOME , CLR 

916 

TITLE-' Instrument  Settings' 

917 

CALL  Cent er (TITLE) 

918 

CALL  Line(NCOL) 

919 

WRITE  (!,' (T4,A5,T20,A8,T40,A7) ’ )  ' INDEX'  , ' FUNCTION'  ,' SETT  INC' 

920 

CALL  LINE(NCOL) 

921 

WRITE  (1,*) 

922 

WRITE  (1,410)  '0: ' , ' . . 

.  .  .WAVELENGTH . '  , 

923 

&WAVELENCTH 

924 

WRITE  (1,420)  '  1:  '  ,  '  .  . 

.  .  .ORDINATE . '  , 

925 

&Pstr(l , PARAM(1)+1) 

926 

WRITE  (1,420)  '2: ' , ' . . 

.  .  .ABSCISSA . '  , 

927 

&Ps  t  r ( 2 , PARAM ( 2 )  + 1 ) 

928 

WRITE  (1,420)  '  3  : '  ,'  .  . 

.  .  .SCAN  RATE  (nm/sec) . '  , 

929 

&Pst  r (3 , PARAM(3)+1 ) 

930 

WRITE  (1,420)  ' 4 : ' , ' . . 

.  .  .CHART  DISPLAY  (nm/cm) .  .  '  , 

931 

&Ps t  r ( 4 , PARAM(4)  +  1 ) 

932 

WRITE  (1,420)  '5:  '  ,  '  .  . 

.  .  .  REFERENCE  MODE . ’  , 

933 

&Pstr(5,PARAM(5)+l) 

934 

WRITE  (1,430)  '  6:  '  ,  '  .  . 

.  .  .  SBW  (nm)  ,  GAIN . ’  , 

935 

&BAND, ’ , ’ .GAIN 

936 

WRITE  (1,420)  ’ 7  :  * , ’  .  . 

.  .  .PEN  FUNCTION . '  , 

937 

&Ps  t  r ( 6 , PARAM ( 6 )  + 1 ) 

938 

WRITE  (1,430)  '8: ’ , ’ . . 

.  .  .PEN  LIMITS  (Min, Max) . .  . ’ , 

939 

&PMIN , ’ , ' , PMAX 

940 

IF  ( PARAM ( 6 ) . GT . 1 )  WRITE  ( 1 , ’ (T40 , A2 , A2 , A14) ' )  UP , ERASE , S t r i ng 

941 

WRITE  (1,420)  '9: ' , ' . . 

.  . .RESPONSE  TIME  (sec) 

942 

&Pst  r ( 15 , PARAM( 15)  +  1 ) 

943 

WRITE  (1,420)  ' 10: ' , ' . 

.  .  .  .  BEAM  INTERCHANGE . '  , 

944 

&Pst  r ( 16 , PARAM ( 16) +  1 ) 

945 

WRITE  (1,420)  'll:','. 

.  .  .  .SLIT  HEICHT . '  , 

946 

&Pst  r(23 , PARAM ( 23 )  +  l ) 

947 

WRITE  (1,420)  '  X :  ' , ' . . 

. .  . EXIT  I nst  rument  Menu ' 

948 

410  FORMAT  (T4 , A3 , T10 , A28 , T40 , F6 . 2) 

949 

420  FORMAT  (T4 , A3 , T10 , A28 ,T40 , A14) 

950 

430  FORMAT  (T4 , A3 , T10 , A28 , T40 , F4 . 2 , A , F5 . 2 ) 

951 

WRITE  (1,*) 

952 

CALL  Li ne(NCOL) 

953 

WRITE  (1,*) 

954 

440  WRITE  (1,*)  UP, ERASE,' 

INDEX  Code:  '.BELL,'  ' 

955 

READ  (1 , ' (A2) ' )  Key 

956 

CALL  Upper (Key) 

957 

IF  (Key. EQ. 'X' )  CO  TO 

MENU 

958 

N-ICHAR(Key( 1 : 1 ) ) -48 

959 

IF  (Key(2:2) .EQ. '  ')  CO  TO  450 

960 

N— N*l0-MCHAR(Key(2  :  2)  ) 

-48 

961 

450  IF  ((N.LT.0) .OR. (N.CT. 

10))  CO  TO  440 

962  C 
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963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983  C 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003  C 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 


K-N 

IF  (N.EQ.O)  CO  TO  460 
IF  (N.EQ.6)  CO  TO  470 
IF  (N.EQ.7)  N-6 
IF  (N.EQ.9)  N-l 5 
IF  (N.EQ.10)  N-l 6 
IF  (N.EQ.8)  THEN 
N— I 

IF  (PARAM(6) .LE. 1)  THEN 

IF  (PARAM(l) .NE.2)  CO  TO  520 
N-9 

END  IF 
END  IF 

CALL  Se lect (N, PARAM, Pst  r) 

IF  (K.EQ.5)  THEN 
WRITE  (1 , * (T12 , A) * ) 

CO  TO  510 
END  IF 

WRITE  (1 , ' (T13.A2.A) ' )  UP, 

CO  TO  PARAMETERS 


Save  Index  #: 
Update  Wavelength 
Update  SBW/CAIN 
Pen  F unct i on 


Update  Pen  Limits 
Index  For  Deriv  &  Log 
PEN  -  NORMAL  Modes 
Absorbance  &  %T  Range 
Index  For  Temp.  Range 


Update  Parameters 


460  WRITE  (1,*)  UP, ERASE, '  Wavelength  -  \BELL,’_' 

READ  (1 ,*,ERR-460)  NUMBER 

IF  ((NUMBER. LT. 185.0) .OR. (NUMBER. CT. 3152))  GOTO  460 
IF  ((Bdet. EQ.'l'). AND. (NUMBER. CT. 900.0))  THEN 
WRITE  (1,*)  UP, ERASE,*  UV/VIS  Detector  Limit  -  900  ran' , BELL 
CALL  Wait (2.0) 

CO  TO  460 
END  IF 

IF  ((Bdet .EQ. '2* ) .AND. (NUMBER. LT. 700.0))  THEN 

WRITE  (1,*)  UP, ERASE,'  NIR  Detector  Limit  -  700  nm', BELL 
CALL  Walt (2.0) 

CO  TO  460 
END  IF 

CALL  Str(NUMBER, String, 6) 

Wlengt h-St  r i ng(2 : 8) 

WRITE  (1,*)  UP, ERASE,’  Slewing  to 
WRITE  (1 , ' (F6.2.A4) ' )  NUMBER,'  nm: ' 

CALL  COTO(WIength) 

CO  TO  INSTRUMENT 


470  WRITE  (1,*)  UP, ERASE,'.' 

IF  (PARAM(5) . EQ. 2)  CO  TO  480  !  AUTOSLIT  Mode  (Both  Detectors) 

IF  (PARAM (22) . EQ. 2)  CO  TO  480  !  NIR  Detector  ->  AUTOSLIT  Mode 
IF  (WAVELENGTH. CT. 900.0)  THEN 

CO  TO  480  !  Lamda  >900  nm  ->  AUTOSLIT  Mode 

END  IF 

IF  (WAVELENGTH. CT. 800.0)  THEN 

IF  (PARAM(22) , EQ. 0)  CO  TO  480  !  AUTO  Detector  ->  AUTOSLIT  Mode 

END  IF 

WRITE  (1,*)  '  Spectral  Bandwidth:  (0.04  -  3.60  nm)  -  '.BELL.'.' 
READ  (1 ,*,ERR-470)  BAND 

IF  ((BAND. LT. 0.04) .OR. (BAND. CT. 3. 60))  CO  TO  470 
CALL  S t  r (BAND, S  t  r i ng , 4) 
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1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027  C 

1028  C 

1029  C 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052  C 

1053 

1054 

1055 

1056 

1057 

1058  C 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 
1069 


Command-Varset //' 9' //St  ring(2:5)//’ >0’ 

CALL  Send(Command) 

CO  TO  510 

480  String-' (1  -  1275) ' 

IF  (PARAM(22) .NE.2)  String-' (1  -  1000)' 

WRITE  (1,*)  '  CAIN:  ' , S t r i ng( 1 : 1 0) , '  -  ' , BELL, '_' 

READ  (1 ,*,ERR-470)  NUMBER 

IF  ((NUMBER. LT. 1 .0) .OR. (NUMBER. CT. 1275.0))  CO  TO  470 
IF  ((NUMBER. CT. 1000.0) .AND. (PARAM(22) .NE.2))  CO  TO  470 
TRANSFER-. FALSE. 

**********************  SPECIAL  ENTRY  POINT  ********************* 
Baseline  CAIN  Request  >  10*CAIN  :  Reset  CAIN  and  RETURN 
**************************************************************** 
490  J— 0 

RATIO-NUMBER/CAIN 
DO  WHILE  (RATIO. CT. 10.0) 

J-J+l 

NUMBER-NUMBER/ 1 0 . 0 
RAT I O-NUMBER/CA I N 
END  DO 

CALL  Str(NUMBER, String, 4) 

Command-Varset//' 5'//String(2:5)//' ! 0 ' 

CALL  Send(Command) 

DO  500  I— 1 , J 

NUMBER-NUMBER* 10.0 
CALL  Str(NUMBER, String, 4) 

CALL  Wait (2.0) 

Cominand-Varset //'  5 '  //St  r  i ng(2  :  5)// '  !  O' 

CALL  Send (Command) 

500  CONTINUE 

IF  (TRANSFER)  THEN  !  Return  to  Baseline  Setup 

CAIN— NUMBER  !  With  Instrument  CAIN  Matched 

TRANSFER-. FALSE.  !  To  Requested  Baseline  Cain 

CO  TO  220 
END  IF 


510  WRITE  (1,*)  UP, ERASE,'  Wafting  for  CARY  to  settle:  '.BELL,' 
CALL  Wait (5.0) 

WRITE  (1,*) 

IF  (K.EQ.5)  WRITE  ( 1 , ' (T1 2 , A) ' ) 

CO  TO  560 


520  N-8 

IF  (PARAM(l) .EQ.0)  N-7 
I-N 

CALL  Se 1 ect ( I , PARAM , Ps t  r ) 
I-I+OFFSET (N) 

CALL  Val(Pstr(N, I) .NUMBER) 

ZERO-O . 0 
IF  (N.EQ.8)  THEN 

IF  (NUMBER. CT. 100.0)  CO  TO  550 
CO  TO  530 
END  IF 
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1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095  C 

1096  C 

1097  C 

1098  C 

1099  C 

1100  C 

1101  C 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 
1121 
1122 
1123 


IF  (NUMBER. CE. 1 .0)  THEN 
NUMBER-4.0 -NUMBER 
GO  TO  530 
END  IF 
NUMBER-3 . 0 

530  WRITE  (1 , ' (T13,A2,A2,A18) ' )  UP, ERASE,'  Zero  Suppress: 

IF  (N.EQ.8)  THEN 

WRITE  (1,*)  '(0  -  10054)  -  '  ,  BELL ,  ' _ ' 

GO  TO  540 
END  IF 

WRITE  (1 , * (A9,F4.2,A4,A,A) ’ )  '(-0.5  to  ’ .NUMBER,')  -  '.BELL, 
540  READ  (1 ,*,ERR-530)  ZERO 
IF  (N.EQ.8)  THEN 

IF  ((ZERO. LT. 0.0) .OR. (ZERO. GT. 100.0))  CO  TO  530 
CO  TO  550 
END  IF 

IF  ((ZERO. LT. -0.5) .OR. (ZERO. CT. NUMBER))  CO  TO  530 
550  CALL  S t  r ( ZERO , S  t  r i ng , 3 ) 

Pcode-' 0 ' 

IF  (N.EQ.8)  Pcode-' : ' 

Command— Varset //Pcode //St  r I ng( 1 : 5)//' ! 0 ' 

CALL  Send(Command) 

WRITE  (1 , ' (T12 , A) ' )  '_' 

560  WRITE  (1 .*)  UP, '_' 

CO  TO  PARAMETERS 


Lamp  and  Detector  Mode  Selection 


570  CALL  Partable(PARAM) 

WRITE  (1,*)  HOME , CLR 
TITLE-' Lamp  &  Detector  Modes’ 

CALL  Center (TITLE) 

CALL  Line(NCOL) 

WRITE  (1 , ' (T15,A5,T27,A8,T47,A4) ' )  • INDEX’ ,’ FUNCTION' , 'MODE' 
CALL  Line(NCOL) 

WRITE  (1,*) 

WRITE  (1,580)  '1:  . LAMP  POWER . 

&Pstr(20,PARAM(20)+l) 

WRITE  (1,580)  '2:  . LAMP  SELECT .  ', 

&Ps  t  r ( 2 1 , PARAM ( 2 1 )  + 1 ) 

WRITE  (1,580)  '3:  . DETECTOR  SELECT .  ’, 

&Pst  r (22 , PARAM(22)  +  1 ) 

WRITE  (1,580)  'X:  . EXIT  TO  MENU .  ’,'  ' 

WRITE  (1,*) 

CALL  LINE(NCOL) 

580  FORMAT  (T16.A30.A14) 

WRITE  (1 ,*) 

590  WRITE  (1 , ' (T15,A2,A2,A9,A,A) ' )  UP, ERASE, ' INDEX  *:  ',BELL,'_' 
READ  (1,80)  Code 
CALL  Upper (Code) 
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1124 

1125 

1126 

1127 

1128 

1129 

1130  C 

1131  C 

1132  C 

1133  C 

1134  C 

1135  C 

1136  C 

1137  600 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150  610 

1151  620 

1152  630 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 

1166 

1167  640 

1168 

1169  650 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177  660 


IF  (Code . EQ. ' X' )  CO  TO  ADVANCED 
N-lCHAR(Code)-48 

IF  ((N.LT. 1) .OR. (N.CT.3))  CO  TO  590 
N— (N-l )+20 

CALL  Select (N , PARAM, Ps t r ) 

CO  TO  LAMP 


Accessory  Mode  Selection 


CALL  Part  able (PARAM) 

DO  610  1-1,2 
Access ( I )-' OFF' 

ASCI  I— ( I -1 )+48 
Pcode— CHAR (ASCI  I ) 

Command-Acco f  f //Pcode //CSM 

WRITE  (UNIT-38 , FMT-* , IOSTAT-N , ERR-999)  Command 
READ  (UNIT-38, FMT-620, IOSTAT-N, ERR-999)  Response 
IF  (Response (2: 2) .EQ. 'P* )  THEN 
Access( I )-' ON' 

Command-Accon//Pcode//CSM 
CALL  Send(Command) 

END  IF 
CONTINUE 
FORMAT  (A64) 

WRITE  (1,*)  HOME , CLR 
TITLE-' Accessory  Control' 

CALL  Center (TITLE) 

CALL  Hne(NCOL) 

WRITE  (1 , ' (T15,A5,T27,A8,T46,A4) ' )  ' INDEX' ,' FUNCTION’ , 'MODE' 
CALL  Line(NCOL) 

WRITE  (1,*) 

WRITE  (1,640)  '1:  ...  TEMPERATURE  READOUT .. .  ’  .Access(l) 

WRITE  (1,640)  '2:  ...PRINTER .  \Access(2) 

IF  (Access(2) .EQ. ’ON’ )  THEN 
WRITE  (1 , ' (T49,A2,A3 ,A12) ’ )  UP,'  :  ' , Pr i nter ( I P) 

END  IF 

WRITE  (1,640)  'X:  ...  EXIT  TO  MENU .  ' 

WRITE  (1,*) 

CALL  Line(NCOL) 

FORMAT  (T16.A30.A4) 

WRITE  (1,*) 

WRITE  (1 , ' (T15,A2,A2,A9,A,A) ' )  UP, ERASE, ' INDEX  *:  ',BELL,'_' 
READ  (1,80)  Code 
CALL  Upper (Code) 

IF  (Code . EQ. ' X' )  CO  TO  ADVANCED 
I  — I  CHAR (Code) -48 

IF  ( ( l . LT . 1 ) . OR . ( I . CT . 2 ) )  CO  TO  650 

ASCI  I— ( I -1 )+48 
Pcode-CHAR( ASCII) 

WRITE  (1 , ' (T14.A2.A2, A) ’ )  UP. ERASE, '_' 


1178  WRITE  (1.*)  ' (OFF-O,  ON-1)  ?  1 , BELL, 

1179  READ  (1, ' (12)' .ERR-660)  ASCII 

1180  Code-CHAR(ASCI 1+48) 

1181  IF  ( (Code. NE. 'O' ) .AND. (Code. NE. ' 1' ))  CO  TO  660 

1 1 82  Command- ' @F' //Code //Pcode//CSM 

1183  CALL  Send(Command) 

1184  IF  (Code . EQ. ' 0 ' )  CO  TO  699 

1185  IF  (I.EQ.l)  THEN 

1186  N— 9 

1187  CALL  Select (N.PARAM, Pst r) 

1188  CO  TO  699 

1189  END  IF 

1190  C  - - - - - 

1191  WRITE  (1,*)  HOME , CLR 

1192  TITLE-' Printer  Mode' 

1193  CALL  Center (TITLE) 

1194  CALL  Line(NCOL) 

1195  WRITE  (1 , ' (T15,A5,T27,A8,T46,A4) ' )  ' INDEX' ,' FUNCTION' ,' MODE' 

1196  CALL  Line(NCOL) 

1197  WRITE  (1 , ' (T46.A14) ’ )  Pst r (40 , PARAM(40) ) 


1198  WRITE  (1,670)  '1:  . WAVELENGTH. 

1199  WRITE  (1,670)  '2:  . TIME . 

1200  WRITE  (1,670)  '3:  . TEMPERATURE 

1201  WRITE  (1,*) 

1202  CALL  Line(NCOL) 

1203  670  FORMAT  (T16.A30) 

1204  WRITE  (1,*) 


1205  680  WRITE  (1 ,' (T15,A2,A2,A9, A, A) ')  UP, ERASE, ' INDEX  #:  ',BELL,’_' 

1206  READ  (1, ' (12)’ .ERR-680)  IP 

1207  IF  ((IP.LT.l).OR.(IP.CT.3))  CO  TO  680 

1208  ASCI I-( IP-1 )+48 

1209  Pcode— CHAR (ASCI  I ) 

1210  690  WRITE  (1, ' (T15,A2,A2,A11 ,A,A) ’)  UP, ERASE, ’ INTERVAL  -  ',BELL,’_' 

1211  READ  (1 ,*,ERR-690)  NUMBER 

1212  CALL  Str(NUMBER, String, 4) 

1213  Command- '@M' //Pcode//S t  r i ng( 1 : 5)//' ! 0 ' 

1214  CALL  Send(Command) 

1215  699  Command— ' @DF0 '  !  Update  Cary  Accessory  Display 

1216  CALL  Send(Command) 

1217  CO  TO  600 

1218  C 
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Store  Spectrum 


1219  C 

1220  C 

1221  C 

1222  C 

1223  C 

1224  C 

1225  700  IF  ((Sstat .NE. 'ACQUIRED' ) .AND. (Sstat .NE. 'STORED' ))  THEN 

1226  WRITE  (1,*)  UP, ERASE,'  Spectrum  is  ABSENT:  ',BELL,'_' 

1227  CALL  Wait (2.0) 

1228  WRITE  (1,*) 

1229  CO  TO  70 

1230  END  IF 

1231  IF  (ABS(XMIN-ABSC) .CT.0.5)  THEN 

1232  710  WRITE  (1,*)  UP, ERASE,’  SCAN  ENDED  AT’ ,ABSC, ’  nm  (Expected:', 

1233  &  XMIN , ’ ) ,  Proceed  (Y  or  N)  ?  ’,BELL,’_’ 

1234  READ  (1,80)  Icode 

1235  CALL  Upper (Icode) 

1236  IF  (Icode. EQ. ’N’ )  CO  TO  70 

1237  IF  ( Icode. NE. ’Y’)  CO  TO  710 

1238  END  IF 

1239  TITLE-’ Store  Spectrum’ 

1240  720  WRITE  (1,*)  HOME , CLR 

1241  CALL  Center (TITLE) 

1242  CALL  Line(NCOL) 

1243  WRITE  (1,*) 

1244  WRITE  (1,*)  ’  Researcher ’ ’ s  Initials,  (AA-ZZ)  ?  \BELL,’_’ 

1245  READ  (1,’(A2)’)  INITIALS 

1246  CALL  Upper (INITIALS) 

1247  String-’ . S ' //INITIALS 

1248  WRITE  (1.*)  DOWN 

1249  WRITE  (1,*)  UP, ERASE,'  Filename:  (16  chars.)  ?  ’,BELL,’_' 

1250  READ  ( 1 , ’ ( A16) ’ )  Name 

1251  CALL  Upper(Name) 

1252  K-16 

1253  DO  WHILE  (Name(K:K) .EQ. ’  ’) 

1254  K-K-l 

1255  END  DO 

1256  Fname-Name(l :K)//St r ing(l : 4) 

1257  WRITE  (1,*)  DOWN,’  Directory,  (Return  -  /DEFAULT/)  ?  ’ , BELL, ’ _ 

1258  READ  ( 1 , ’ (A40) ’ )  Directory 

1259  IF  (Directory. EQ. ’  ’)  THEN 

1260  Out f i 1 e-Fname 

1261  CO  TO  730 

1262  END  IF 

1263  L-40 

1264  DO  WHILE  (Di rectory(L: L) .EQ. ’  ’) 

1265  L-L-l 

1266  END  DO 

1267  IF  (Dl rectory(L: L) . EQ. ’/’ )  L-L-l 

1268  Out  f i le-Di rect ory( 1 : L)//’ /’ //Fname 

1269  730  L-63 

1270  DO  WHILE  (Out fi le(L: L) . EQ. ’  ’) 

1271  L-L-l 

1272  END  DO 
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1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 


740  WRITE  (1,*)  DOWN,'  Validating:  ' ,Out fi le(l :L) , ' 

OPEN  (UNIT-66 , FI LE-Out  f i 1 e ( 1 :L) , I OSTAT-N , STATUS-' NEW' ) 

WRITE  (1,*) 

IF  (N.NE.O)  THEN 
N-N-500 

WRITE  (1,*)  UP, ERASE, 

IF  (N.EQ.2)  WRITE  (1,*)  ’  FILE  EXISTS:  ' , BELL, 

IF  (N.EQ.8)  WRITE  (1,*)  '  FILE  OPENED:  ' , BELL , ' _ 1 
IF  ((N.NE.2) .AND. (N.NE.8))  WRITE  (1,*)  '  DISK  ERROR  #  ' ,N, 
&  BELL, ' 

CLOSE  ( UN  IT-66,  STATUS-' DELETE' ) 

CALL  Wait (2.0) 

CO  TO  720 
END  IF 

IF  (Code . EQ. ' R' )  CO  TO  790 

WRITE  (1,*)  UP, ERASE,’  Val idated  Fi lename :  ' , Fname 
WRITE  (1,*)  DOWN,'  Title,  (72  chars):’ 

WRITE  (1 ,*)  ’  ’ .BELL, 

READ  (1,750)  TITLE 
750  FORMAT  (A72) 

WRITE  (1,*)  DOWN,'  Date,  (MM/DD/YY) :  ',BELL,'_' 

READ  (1,760)  DATE 
760  FORMAT  (A8) 

WRITE  (1,*)  DOWN 

770  WRITE  (1,*)  UP, ERASE,'  Concentration,  (M) :  ',BELL,'_' 

READ  (1 ,*,ERR-770)  CONC 
IF  (CONC. LT. 0.0)  CO  TO  770 
WRITE  (1,*)  DOWN 

780  WRITE  (1,*)  UP, ERASE,’  Pathlength,  (cm):  ’,BELL,’_' 

READ  (1 ,*,ERR-780)  PATH 
IF  (PATH. LT. 0.0)  CO  TO  780 


790  J-49  !  #  of  Parameters 

K— 14  !  #  of  Variables 

VARIABLE(6)-SPECCAIN  !  Store  CAIN  At  Smax 

VARIABLE(10)-SPECBAND  !  Store  SBW  At  Smin 

WRITE  (1,*)  DOWN,'  Storing  File:  ’, Out fi le( 1 : L) , BELL 
WRITE  (66 , FMT-750 , I OSTAT-N , ERR-820)  TITLE 
WRITE  (66, FMT-760, I OSTAT-N, ERR-820)  DATE 

WRITE  (66, FMT-*, I OSTAT-N, ERR-820)  XM IN , XMAX.XSTEP , CONC, PATH 
WRITE  (66, FMT-*, I OSTAT-N, ERR-820)  ORD, ABSC , CELL, CYCLE , SAMPLE , 
&WAVE , T I MER , TEMP , D I  ST 

WRITE  ( 66, FMT-800, I OSTAT-N, ERR-820)  J , K , NARRAY 
800  FORMAT  (13,  13, 16) 

WRITE  ( 66, FMT-8 10, I OSTAT-N, ERR-820)  ( PARAM( I ) , I -1 , J ) 

810  FORMAT  (12) 

WRITE  (66, FMT-*, I OSTAT-N, ERR-820)  (VAR  I  ABLE ( I ) , 1-1 ,K) 

WRITE  (66, FMT-*, I OSTAT-N, ERR-820)  (Y( I ), 1-1 , NARRAY) 

WRITE  (66, FMT-*, I OSTAT-N, ERR-820)  (X( l ), 1-1 , NARRAY) 

CLOSE  (UNIT-66,  I OSTAT-N , ERR-820 , STATUS- ’ KEEP’ ) 

Sst at-’ STORED’ 

CALL  Wait (2.0) 

GO  TO  MENU 
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1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 


820  WRITE  (1,*)  UP, ERASE,'  Disk  Error  #',N,BELL,' 

WRITE  (1,*)  'R... RESAVE,  X...EXIT  to  Menu  ?  ' ,BELL,'_' 

READ  (.1.30)  Code 

IF  ((Code. NE. 'R' ) .AND. (Code. NE. 'X' ))  CO  TO  a20 

WRITE  (1,*)  UP, ERASE,'  Deleting  Old  File:  ', Out fi 1 e ( 1 : L) , BELL , 
&' 

CLOSE  (UNIT-66,  I OSTAT-N , ERR-820 , STATUS-' DELETE' ) 

CALL  Wait (2.0) 

IF  (Code .EQ. ’ R’ )  CO  TO  720 
Fname- 1  ’ 

Sstat-' ACQUIRED' 

CO  TO  MENU 
C 

C  - 

c 

C  Exit  Program 

C 

C  - 

c 

900  IF  (Sstat .EQ. 'ACQUIRED' )  THEN 

WRITE  (1,*)  UP, ERASE,'  SPECTRUM  NOT  STORED:', 

&  '  Exit  (Y  or  N)  ?  ' , BELL , 

READ  (1,80)  Code 
CALL  Upper (Code) 

IF  (Code . EQ. * N' )  CO  TO  70 
IF  (Code .NE. ' Y' )  CO  TO  900 
END  IF 

910  WRITE  (1,*)  UP, ERASE,'  Set  To  STANDBY,  (Y  or  N)  ?  ',BELL,'_’ 
READ  (1,80)  Code 
CALL  Upper (Code) 

IF  (Code .EQ. 'N' )  CO  TO  920 
IF  (Code .NE. 'Y' )  CO  TO  910 
CALL  Send(Standby) 

920  WRITE  (1,*)  UP, ERASE, UP 
STOP 
C 

C  - - 

c 

C  IEEE-488  Error  Exit 

C 

C  - 

c 

999  WRITE  (1 ,*)  '  Error  #' ,N 
STOP 
END 


6i 


1372  C 

1373  C  *‘te'k'k'k*'k'k-k‘k'k'k'k-k-k'k-k'k'k*  END  OF  MAIN  PROGRAM  *********************** 

1374  c 

1375  C  BLOCK  DATA  FOR  NAMED  COMMON  BLOCK  INITIALIZATION 

1376  C 

1377  C  *+rk**rk*1tigib**'jr**********+*******1e*****1c******it***********X***jlrilc-&-iCl 

1378  C 

1379  $ ALIAS  /MODE/ , NOALLOCATE 

1380  $ALIAS  /CARY/ .NOALLOCATE 

1381  $ALI AS  /IP/, NOALLOCATE 

1382  $ALI AS  /IS/ .NOALLOCATE 

1383  BLOCK  DATA  Arrays 

1384  I NTECER  NDATA, XMODE , YMODE 

1385  INTEGER  NPAR(49) ,OFFSET(49) 

1386  REAL  ORD.ABSC, CELL, CYCLE , SAMPLE, WAVE , TIMER. TEMP . DI ST 

1387  CHARACTER  Pname (49)*10 , Vname(14)*8 

1388  COMMON  /MODE/NDATA , XMODE , YMODE 

1389  COMMON  /CARY/ORD, ABSC, CELL, CYCLE, SAMPLE, WAVE, TIMER, TEMP, D I  ST 

1390  COMMON  / I P/NPAR, OFFSET 

1391  COMMON  /IS/ Pname , Vname 

1392  C 

1393  DATA  NDATA, XMODE, YMODE/0, 0,0/ 

1394  DATA  ORD , ABSC , CELL , CYCLE , SAMPLE , WAVE , T I MER , TEMP , D I ST/0 . 0 , 0 . 0 , 0 . 0 , 

1395  &0. 0,0. 0,0. 0,0. 0.0. 0,0.0/ 

1396  C 

1397  DATA  NPAR/6, 4, 11, 11,4,5,9,7,4,5,11,16,8,10,4,2,2,2,2,4,3,3,2,3, 

1398  &3, 3, 2, 6, 2,4, 2, 5, 5, 2, 2, 0,0, 5,0, 2, 0,0, 0,0, 0,0, 0,0,0/ 

1399  C 

1400  DATA  OFFSET/0 ,0,0,4,0,0,0,9,11,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0. 

1401  &0, 0,0, 0,2, 6, 8, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0/ 

1402  C 

1403  DATA  Pname/ ' Ordi nate ',' Absc i ssa' ,' Scan  Rate Chart/cm' , 

1404  &' Ref .Mode Pen  Functn'.'A  range', '  %T  Range Temp . Range ' , 

1405  &' Log  Zero' , ' Der . Range ' , ' Der .Temp' , ' Ki net . Rnge ' , ' Temp .Zero' , 

1406  &' Per iod' ,' Beam  Chge ',' Sequencer ',' Auto . Op' ,' Chart  Op', 

1407  & ' Lamp  Pwr'.'Lamp  Se 1 ' , ' Det . Sel’ , ' S 1 i t  Hgt ’ , ’ BLN  Det', 

1408  &' BLN  Lamp', 'BLN  Ref', 'BLN  S 1 i t ’  , ' No . ce I  I s ’  , ' Samp  1 e '  , 

1409  &' Curv . Fi t ' , ' Rec . Prec ' , ' Me thod' , ' Resu 1 t ' , ' Aut o  Kin', 

1410  &' Samp/Av. ' , *  ’ , ’ BLN  Stat ’ , ’  ’,' Printer ' , '  ','  ', 

1411  &' TEST' , 'TEST' , 'TEST' , 'TEST' , 'TEST' , 'TEST' , 'TEST'/ 

1412  C 

1413  DATA  Vname/'  A  zero',  '  BL  SBW/C','BL  Wmax'.'BL  Winin'  , 

1414  &'Cyc  Time', 'Sel  Gai n' , ' Ncyc 1 es ' , ’ Nwl ngt hs ' , ' Rec  Time', 

1415  &' Se 1  SBW'  ,  "XT  Zero '  , ' SEQ  Wmax'  , ' SEQ  Wmi n'  , ' Di s t ance ' / 

1416  C 

1417  END 


62 


Select  Mode  of  Operation  for  Specific  Parameter 


1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 


C 

C 

C 

C 

C 

C 

C 

$ALI AS 
$ ALIAS 


10 


20 

30 


40 


/IP/, NOALLOCATE 
/IS/, NOALLOCATE 

SUBROUTINE  Se lect (N , PARAM , Ps t r) 

INTEGER  ASCII , I ,J,K,N,NCOL 

INTEGER  NPAR(49) , OFFSET (49) , PARAM (49) , INDEX(ll) 

CHARACTER  Pname(49)*10 , Pst r (49 , 16)*1 4 , Vname ( 14)*8 
CHARACTER  Command*44 ,CSM, I  code ,Key*2 , Pcode , Parse t *2 , TITLE*72 
CHARACTER  BELL , CLR*2 , ESC , ERASE* 2 , DOWN*2 , HOME*2 , UP*2 
COMMON  / 1 P/NPAR , OFFS  ET , / 1 S /Pname , Vname 
DATA  CSM, Key , Parset /' 0 ' , '@D' , '@H'/ 

DATA  (INDEX(l),l-l,ll)/l,3,4,6,7,9,10,12,13,15,16/ 

BELL-CHAR ( 7 ) 

ESC— CHAR(27) 

CLR-ESC// '  J ' 

DOWN— ESC/ / ' B ' 

ERASE-ESC//' K' 

HOME-ESC// ' h 1 
UP— ESC//'  A' 

NCOL-50 

WRITE  (1,*)  HOME , CLR 

TITLE-' Operat ing  Mode  Selection' 

CALL  Center (TITLE) 

CALL  Line(NCOL) 

WRITE  (1 , ' (T15,A5,T30,A10) ' )  ' Index' , Pname (N) 

CALL  Llne(NCOL) 

WRITE  (1,*) 

DO  20  I— 1 , NPAR(N) 

J-I+OFFSET (N) 

IF  ((N.EQ.4) .AND. (J .EQ.5))  J-l 
IF  (N.EQ. 11)  THEN 
J-INDEX(I) 

IF  ( (PARAM( 1 ) . NE . 0) . AND. (I . LE. 4) 1  CO  TO 

END  IF 

WRITE  (1,30)  I  ,  '  :  . '  ,Pstr(N,  J) 

CONTINUE 

FORMAT  (T16, I  2 , A10 ,T30 , Al 4) 

WRITE  (1,*) 

CALL  Line(NCOL) 

WRITE  (1,*) 

WRITE  ( 1 , ' (T1 5 , A2 , A2 , A9 , A , A) ' )  UP.ERASE, 

READ  (1  , ' (12) '  , ERR-40)  K 
IF  ((K.LT. 1) .OR. (K.CT.NPAR(N)))  CO  TO  40 
IF  ( PARAM ( 1 ) . NE . 0)  THEN 

IF  ((K. EQ.5) .AND. (N.EQ. 6))  CO  TO  40 
IF  ((K.LE.4) .AND. (N.EQ. 11))  CO  TO  40 
END  IF 

IF  ((N.EQ. 38) .AND. (K.CT.2))  CO  TO  50 


Chart  Index  Offset 
Derivative  Modes 
Use  Valid  I ndex 
20 


Index  »: 


,  BELL, 


Invalid  Index  Entry 

Only  LogiAbs-)  Valid 
Invalid  Deriv  Index 

Baseline  Setup  Mode 
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1472 

IF  (N.EQ. 11)  K-INDEX(K) 

I 

Index  To  Deriv  Mode 

1473 

50 

ASCI  I  —  ( K— 1 )+OFFSET(N)+48 

1474 

IF  ( (N.EQ. 4) .AND. (K.EQ. 1))  ASCI I-ASCI I -4 

| 

Chart  Index  Offset 

1475 

I code— CHAR (ASCI  I ) 

1476 

ASCI  I  — (N-l )+48 

1477 

Pcode-CHAR(ASCI I) 

1478 

Command-Parsec //Pcode// 1  code //CSM 

1479 

CALL  Send (Command) 

1480 

IF  ((N.EQ. 6) .AND. (K.CT.2))  THEN 

1 

Special  Pen  Modes 

1481 

N— 1 1 

| 

Derivative  Modes 

1482 

IF  (K.EQ. 5)  N— 10 

1 

Log(Abs)  Mode 

1483 

CO  TO  10 

| 

Se  1  ect  Sett i ng 

1484 

END  IF 

1485 

N-K 

1486 

RETURN 

1487 

60 

IF  (K.EQ. 4)  CO  TO  40 

1488 

Pcode— CHAR(48+N-1 ) 

1489 

Command-Parse t//Pcode// ' 0 ' //CSM  ! 

Set 

Status  To  OFF 

1490 

CALL  Send (Command) 

1491 

Command— Key//' 10*  ! 

Key 

-  1 

1492 

CALL  Send(Command) 

1493 

Command— Key// 1 -0 ’  ! 

Key 

-  ENTER 

1494 

CALL  Send(Command) 

1495 

Command-Key//' h0'  ! 

Key 

-  RICHT  CURSOR 

1496 

IF  (K.EQ. 3)  CO  TO  70 

1497 

CALL  Send(Command) 

1498 

70 

CALL  Send(Command) 

1499 

CALL  Send(Command) 

1500 

Command-Key//' -O'  ! 

Key 

-  ENTER 

1501 

CALL  Send(Command) 

1502 

N-K 

1503 

IF  (K.EQ. 5)  N— 2 

1504 

RETURN 

1505 

END 

64 


Baseline  Scan  Control 


1506  C 

1507  C 

1508  C 

1509  C 

1510  C 

1511  C 

1512  C 

1513  SUBROUTINE  B1 i ne(WMlN , WMAX, Bdet , Bga i n , B1 amp , Bper i od , Brat e , Bre f , 

1514  &Bsbw, Bsl it ,Bscan,Bt i me .MATCH, MODE) 

1515  INTEGER  I NDEX , MODE , N , NCOL 

1516  REAL  NUMBER, WM IN, WMAX 

1517  LOGICAL  MATCH , MON I  TOR 

1518  CHARACTER* (*)  Bdet , Bga i n , B1 amp , Bpe r i od , Brat e , Bre f 

1519  CHARACTER*^*)  Bsbw , Bs 1 i t , Bscan , Bt ime 

1520  CHARACTER  Bgbw*4 , BELL, Code , CLR*2 , DOWN*2 , ERASE*2 , Esc , HOME* 2 , UP* 2 

1521  CHARACTER  Bmi n*6 , Bmax*6 , Command*44 , Response*64 , S t r i ng*l 4 

1522  CHARACTER  Aut oba 1*4 , B1 s t at *5 , S t ar t *4 , TITLE*72 

1523  DATA  Aut  obal  ,  B1  st  at  ,  S  t  art/'  (3DU0 '  ,  '  (3C1U0  '  ,  '  (§DP0 '  / 

1524  Esc— CHAR(27 ) 

1525  BELL-CHAR (7) 

1526  CLR-Esc// 1 J  ' 

1527  DOWN— Esc// ' B' 

1528  ERASE-Esc//' K' 

1529  HOME-Esc//' h' 

1530  UP-Esc// ' A' 

1531  MONITOR-. FALSE.  !  For  Testing  Routine  ONLY 

1532  NCOL-70 

1533  IF  (WMAX. CT. 800.0)  WMAX-WMAX+0 . 2  !  *  Cary  Baseline  Bug  Fix  * 

1534  CALL  Str(WMAX, String, 5) 

1535  Bmax-St r i ng(2 : 7 ) 

1536  IF  (WMIN.CT. 800.0)  WMIN-WMIN-O . 2  1  *  Cary  Baseline  Bug  Fix  * 

1537  CALL  Str(WMIN, String, 5) 

1538  Bmin— String(2:7) 

1539  Bgbw— Bsbw  !  Only  One  Of  SBW  Or  CAIN  Is 

1540  IF  (MODE.EQ.2)  Bgbw-Bgain  !  Stored  By  Cary  For  Baseline 

1541  C  - - 

1542  WRITE  (1,*)  HOME , CLR 

1543  TITLE-' Base  1 ine  Scan  Control' 

1544  CALL  Center (TITLE) 

1545  CALL  Line(NCOL) 

1546  WRITE  (1,10)  DOWN,’  Wavelength  Limits,  (nm):  ',WMAX, '  /  ' , WM I N 

1547  10  FORMAT  (T2  ,  A2  ,  A27  ,  F4 . 1  ,  A3  ,  F4  .  1 ) 

1548  WRITE  (1,*)  DOWN,’  Scan  Rate,  (nm/sec)  ' , Bscan 

1549  WRITE  (1,*)  DOWN,'  Response  Time,  (sec)  '.Btime 

1550  IF  (MODE. EQ. 1 )  THEN 

1551  WRITE  (1,*)  DOWN,'  Spectral  Bandw i dt h . ( nm) :  '.Bsbw 

1552  CO  TO  20 

1553  END  IF 

1554  WRITE  (1,*)  DOWN,'  AUTOSLIT  Cain  Level  :  ’ . Bga in 

1555  20  WRITE  (\ ,*)  DOWN 

1556  WRITE  (1,*)  DOWN.'  Place  Solvent  Cells  In  BOTH  Beams:' 

1557  WRITE  (1,*)  DOWN,'  S . Start  Scan’ 

1558  WRITE  fl,*)  DOWN,'  A . Abort  Scan’ 

1559  ’WRITE  ( l  ,  *)  DOWN,’  Enter  the  CODE.  ’ . BELL.’_’ 


CD 


1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 


30  READ  (1 , ' (Al) ' )  Code 
CALL  Upper (Code) 

IF  (Code . EQ. ’A' )  THEN 
MATCH-. FALSE. 

RETURN 
END  IF 

IF  (Code .NE. ’S’)  CO  TO  30 

WRITE  (1,*)  UP, ERASE, UP, UP, ERASE, UP, UP, ERASE, UP, UP, ERASE, 
WRITE  (1,*)  '  Sending  Baseline  Parameters:  ' , BELL 
Command- ' @J ' //Bmax// ' ! '//Emin//' i ’//Bgbw//' ! ' //Bref//' !  '// 

&  Blamp//'  !  '//Bdet//'  !  ’//Bsl  it//'  !  '//Brace//'  !  ' //Bper  iod//’  .'O' 
WRITE  (UNIT-38 , FMT-* , IOSTAT-N , ERR-999)  Command 
READ  ( UN I T-38.FMT-40, IOSTAT-N, ERR-999)  Response 
40  FORMAT  (A64) 

IF  (Response(2:2) .EQ. 'N' )  THEN 
INDEX- ICHAR( Response (4: 4)) -48 

WRITE  (1,*)  UP, ERASE,'  Parameter  Error:  ', INDEX, BELL 
CALL  Wait (2.0) 

MATCH-. FALSE. 

RETURN 
END  IF 

WRITE  (1,*)  UP, ERASE,'  Recording  Base  1 i ne BELL 
CALL  Send(Start) 

50  Command-Blstat 

IF  (MONITOR)  WRITE  (1,*)  '  Command  -  ' , Command 
WRITE  ( UN I T-38.FMT-*, IOSTAT-N, ERR-999)  Command 
READ  ( UN  IT-3 8, FMT-40, IOSTAT-N, ERR-999)  Response 
IF  (MONITOR)  WRITE  (1,*)  '  Response  -  '.Response 
INDEX— ICHAR(Response (6:6)) -48 
IF  ( INDEX. NE . 1 )  CO  TO  50 

WRITE  (1,*)  UP, ERASE,'  Performing  Auto  Ba 1 ance : 1 , BELL 
CALL  Send(Autobal ) 

CALL  Wait (2.0) 

RETURN 

999  WRITE  (1,*)  '  Error  #',N,'  in  SUBROUTINE  Bline' 

STOP 

END 
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Co  To  Specified  Wavelength 


1597  C 

1598  C 

1599  C 

1600  C 

1601  C 

1602  C 

1603  C 

1604  SUBROUTINE  COTO(Wlength) 

1605  INTEGER  LENSTR 

1606  CHARACTER  Asc i i , CSM, S 1 ew, Mode  1 , Nee  1 1 , Range , Wi ndex 

1607  CHARACTER  Command*4 , Key*2 

1608  CHARACTER*^)  Wlength 

1609  CSM-'O' 

1610  Key-'@D' 

1611  Command-Key// '  J '  / /CSM  !  Key  -  GOTO  WAVELENGTH 

1612  CALL  Send(Command) 

1613  LENSTR-LEN (Wlength) 

1614  DO  10  1-1 , LENSTR 

1615  Asci i-Wlength( I : I ) 

1616  IF  (Ascii. EQ.'  ’)  GOTO  10 

1617  IF  (Ascii .EQ. )  Ascii-':' 

1618  Commano— Key//Asc i i//CSM  !  Key  -  NUMBER  (0-9) 

1619  CALL  Send(Command) 

1620  10  CONTINUE 

1621  Command-Key// '-'//CSM  !  Key  -  ENTER 

1622  CALL  Send(Command) 

1623  20  CALL  I nst at s (S 1 ew.Mode 1 , Nee l 1 , Range , Wi ndex) 

1624  IF  (Slew.NE. '0' )  CO  TO  20 

1625  RETURN 

1626  END 

1627  C 

1628  C  —  — - - 

1629  C 

1630  C  Instrument  Status  Test 

1631  C 

1632  C  - 

1633  C 

1634  SUBROUTINE  I  ns  tat s (S 1 ew, Mode  1 , Nee  1 !, Range , Wi ndex) 

1635  INTEGER  N 

1636  CHARACTER  S 1 ew , Mode  I , Nee  1 1 , Range , Wi ndex 

1637  CHARACTER  S t at s*3 , Dat a* 1 2 

1638  Stats- '(§  B0' 

1639  10  WRITE  (UNIT-38 , FMT-* , iOSTAT-N , ERR-999)  Stats 

1640  READ  (UNIT-38, FMT-20, IOSTAT-N, ERR-999)  Data 

1641  20  FORMAT  (A12) 

1642  S lew— Dat a(4 : 4) 

1643  Mode 1-Data(5 : 5) 

1644  Nee ll-Data(6 : 6) 

1645  Range-Data(7 : 7) 

1646  Wi ndex-Data( 8 : 8) 

1647  RETURN 

1648  999  WRITE  (1,*)  '  Error  *',N,’  in  SUBROUTINE  Instats' 

1649  STOP 

1650  END 
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Read  Parameter  Table  From  CARY  2390 


1651  C 

1652  C 

1653  C 

1654  C 

1655  C 

1656  C 

1657  C 

1658  SUBROUTINE  Partable(PARAM) 

1659  INTEGER  LENSTR, N, INDEX, PARAM( 49) 

1660  LOGICAL  TEST 

1661  CHARACTER  Command* 3 , Response*64 , Asc i i 

1662  TEST-. FALSE. 

1663  Command- 1  (§E0 ' 

1664  WRITE  (UNIT-38 , FMT-* , IOSTAT-N , ERR-999)  Command 

1665  READ  ( UN IT-3 8, FMT- 10, IOSTAT-N, ERR-999)  Response 

1666  10  FORMAT  (A64) 

1667  IF  (TEST)  WRITE  (1,*)  '  RESPONSE  -  ', Response 

1668  AscI i-Response(4 : 4) 

1669  L£NSTR-ICHAR(Asc i i ) -48 

1670  IF  (TEST)  WRITE  (1,*)  '  String  Length  , LENSTR 

1671  DO  20  1-1 , LENSTR 

1672  J— 1+4 

1673  Asc i i— Response (J : J) 

1674  IF  (TEST)  WRITE  (1,*)  '  ASCII  Character  -  ’, Ascii 

1675  INDEX- I CHAR (Asc I i ) -48 

1676  PARAM( I )— INDEX 

1677  IF  (TEST)  WRITE  (1,*)  '  Parameter  Index  -',PARAM(I) 

1678  20  CONTINUE 

1679  RETURN 

1680  999  WRITE  (1,*)  '  Error  #',N,’  in  SUBROUTINE  Partable' 

1681  STOP 

1682  END 

1683  C 

1684  C  - 

1685  C 

1686  C  Read  Variable  Table  From  CARY  2390 

1687  C 

1688  C  - 

1689  C 

1690  SUBROUTINE  Vartable(VARI ABLE) 

1691  INTEGER  LENSTR( 14) ,N 

1692  REAL  NUMBER , VAR  I ABLE( 14) 

1693  LOGICAL  TEST 

1694  CHARACTER  Asc i i ,CSM ,Command*5 , Response*64 , St r i ng*l 4 , Varout*3 

1695  DATA  (LENSTR(I) ,1— 1,14)/14,11,11,11, 10, 10,8.8.8. 11.11,  11  ,11  ,  11/ 

1696  TEST-. FALSE. 

1697  CSM-'O’ 

1698  Varout-'@C2' 

1699  DO  10  1-1 , 14 

1700  J— l - l 

1701  Asci i-CHAR(J+48) 

1702  Command-Varout//Asc i i//CSM 

1703  IF  (TEST)  WRITE  (l,*)  '  Command  -  ' .Command 

1704  WRITE  (UNIT-38. FMT-*, IOSTAT-N. ERR-d9d)  Command 
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1705  READ  (UNIT-38 , FMT-20 , IOSTAT-N , ERR-999)  Response 

1706  IF  (TEST)  WRITE  (1,*)  *  Response  -  Response 

1707  S t  r i ng-Response (6 : 6+LENSTR( I ) ) 

1708  IF  (TEST)  WRITE  (1,*)  '  String  -  '.String 

1709  CALL  Val (St  ring, NUMBER) 

1710  VARIABLE( I ) -NUMBER 

1711  IF  (TEST)  WRITE  (1.*)  '  VALUE  — '  , VAR  I ABLE ( I ) 

1712  10  CONTINUE 

1713  20  FORMAT  (A64) 

1714  RETURN 

1715  999  WRITE  (1.*)  '  Error  #',N,'  in  SUBROUTINE  Variable' 

1716  STOP 

1717  END 

1718  C 

1719  C  - 

1720  C 

1721  C  Print  a  TITLE  Centered  in  72  columns 

1722  C 

1723  C  - 

1724  C 

1725  SUBROUTINE  Center(TITLE) 

1726  INTEGER  I.J.N 

1727  CHARACTER  TITLE*72 , BLANK*36 

1728  BLANK-' 

1729  1-72 

1730  J-0 

1731  DO  WHILE  ( ICHAR(TITLE( I : I ) ) . EQ. 32) 

1732  J-J+l 

1733  I-72-J 

1734  END  DO 

1735  N-J/2 

1736  WRITE  (1,*)  BLANK ( 1 : N) , T I TLE ( 1 : I ) 

1737  RETURN 

1738  END 

1739  C 

1740  C  - 

1741  C 

1742  C  Print  a  line  of  N  '-'  characters  (72  columns  max) 

1743  C 

1744  C  - 

1745  C 

1746  SUBROUTINE  Line(N) 

1747  INTECER  I ,N 

1748  CHARACTER  BLANK*72 , DLINE*72 , SPACE*36 

1749  SPACE-' 

1750  BLANK-SPACE// SPACE 

1751  SPACE-' - ' 

1752  DLINE-SPACE//SPACE 

1753  IF  (N.GT.72)  N-72 

1754  I-(72-N)/2 

1755  WRITE  (1,*)  BLANK ( 1 : I) ,DLINE(1 :N) 

1756  RETURN 

1757  END 
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1758  C 

1759  C  - - - 

1760  C 

1761  C  Enter  and  Validate  Wavelength  Limits 

1762  C 

1763  C  - 

1764  C 

1765  SUBROUTINE  Limi t s (MIN ,MAX) 

1766  REAL  MIN, MAX, SWAP 

1767  CHARACTER  BELL , ERAS E*2 , ESC, UP* 2 

1768  BELL-CHAR (7) 

1769  ESC-CHAR(27) 

1770  ERASE-ESC// ' K ' 

1771  UP— ESC//' A' 

1772  10  WRITE  (1,*)  UP,ERASE,'_' 

1773  WRITE  (1,*)  '  Wavelength  Limits:  (Min, Max)  ', ERASE, BELL, ' 

1774  READ  (1,*,ERR-10)  MIN, MAX 

1775  MIN— ABS (MIN) 

1776  MAX— ABS (MAX) 

1777  IF  (MIN. LT. MAX)  CO  TO  20 

1778  SWAP— MIN 

1779  MIN-MAX 

1780  MAX-SWAP 

1781  20  MIN— INT(MIN+ . 5 ) 

1782  MAX—  I  NT  (MAX+ .  5 ) 

1783  IF  (MIN. LT. 185)  CO  TO  10 

1784  IF  (MAX. CT. 3152)  CO  TO  10 

1785  RETURN 

1786  END 

1787  C 

1788  C  — . - . - - - - 

1789  C 

1790  C  Convert  String  Entry  To  Uppercase  If  Required 

1791  C 

1792  C  - - - 

1793  C 

1794  SUBROUTINE  Upper(Code) 

1795  INTECER  LENSTR , N 

1796  CHARACTER* ( * )  Code 

1797  LENSTR-LEN (Code ) 

1798  DO  10  1-1 , LENSTR 

1799  N— I CHAR (Code ( 1:1)) 

1800  IF  (N.CT.96)  Code( I : I )-CHAR(N-32) 

1801  10  CONTINUE 

1 302  RETURN 

1803  END 
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Read  Data  In  Real  Time  (INTERVAL)  Mode  From  CARY  2390 


1806  C 

1807  C 

1808  C 

1809  C 

1810  C 

1811  $EMA/DATA/ 

1812  SUBROUTINE  Acqui re ( I nc , PRINT , S INCLE, WAVELENGTH) 

1813  INTEGER  N , NCOL , NDATA , XMODE , YMODE , XOFF(4) ,YOFF(6) 

1814  REAL  ORD, ABSC, CELL, CYCLE, SAMPLE, WAVE, TIMER, TEMP, DIST 

1815  REAL  X( 10001 ) ,Y( 10001) .WAVELENGTH 

1816  CHARACTER  Command* 10 , Dat  a*64 , I nc*4 , Esc , DOWN*2 , ERASE* 2 , UP* 2 

1817  CHARACTER  Sl*8 , S2*8 , S3 , S4 , S5*3 , S6*8 , S7*6 , S8*6 , S9*7 

1818  LOGICAL  CHECK , PRINT , S INCLE , TEST 

1819  COMMON  /MODE/NDATA , XMODE , YMODE 

1820  COMMON  /CARY/ORD, ABSC, CELL , CYCLE , SAMPLE , WAVE , TIMER , TEMP , DI ST 

1821  COMMON  /DATA A . X 

1822  DATA  (XOFF (I), I -1, 4) /7, 5, 5, 6/ 

1823  DATA  (YOFF(I) , l-l ,6)/7,6,5,6, 11 ,6/ 

1824  Esc— CHAR(27) 

1825  UP— Esc//' A' 

1826  DOWN-Esc//' B' 

1827  ERASE— Esc//' K' 

1828  CHECK-. FALSE.  !  Only  Used  For  Testing  Routine 

1829  TEST— .FALSE.  !  Only  Used  For  Testing  Routine 

1830  J-2+YOFF(YMODE)  !  The  First  Two  Fields  In  Data  String 

1831  K-J+2  !  Vary  In  Length  With  Choice  Of  Abscissa 

1832  L-K+XOFF( XMODE)  !  And  Ordinate  -  XMODE  &  YMODE  Select 

1833  IM-L+2  !  The  Correct  Offsets  From  XOFF/YOFF 

1834  NCOL-70 

1835  IF  (.NOT. PRINT)  CO  TO  20 

1836  CALL  Llne(NCOL) 

1837  WRITE  (1,10)  ' Ordi nat e '  , ' Absc i ssa’  , ’ Ce 1 1 ’  , ' Cyc 1 e ’  , ' Samp  1 e '  , 

1838  &' W length' , ' T ime ' , ' Temp , C' , ' Di st ' 

1839  10  FORMAT  (A10 , A10 , A5 , A6 , A7 , A10 , A8 , A8 , A8) 

1840  CALL  Line(NCOL) 

1841  WRITE  (1,*)  DOWN 

1842  20  Command-' @K1 1 ' //I nc//’ ! 0’ 

1843  IF  (TEST)  WRITE  (1,*)  ’  Command  -  ’ .Command 

1844  WRITE  (UNIT-38, FMT-*, IOSTAT-N , ERR-999)  Command 

1845  IF  (SINGLE)  THEN 

1846  READ  ( UNI T-38 , FMT-30 , I OSTAT-N , ERR-999)  Data 

1847  S6-Data(M+9:M+16) 

1348  CALL  Val(S6, WAVELENGTH) 

1849  RETURN 

1850  END  IF 

1851  30  FORMAT  (A64) 

1852  DO  100  1-1 , NDATA 

1853  READ  (UNIT-38  .  FMT-30  ,!  OSTAT-N  ,  ERR-999  >  Data 

1854  C  IF  (CHECK)  WRITE  (1,30)  Data 

1855  SI— Data(2:J)  !  Ordinate  -  Variable  Length  Field 

1856  S2— Data(K:L)  !  Abscissa  -  Variable  Length  Field 

1857  S3— Data(M:M)  !  Remaining  Fields  Are  Fixed  Length 


1858  S4-Oata(M+2:M+3) 

1859  S5-Data(M+5 :M+7) 

1860  S6-Data(M+9:M+16) 

1861  S7-Data(M+18:M+23) 

1862  S8-Data(M+25 :M+30) 

1863  S9-Data(M+32 :M+38) 

1864  C  IF  (CHECK)  WRITE  (1,*)  S 1 , S2 , S3 , S4 , S5 , S6 , S7 , S8 , S9 

1865  CALL  Val(Sl ,ORD) 

1866  CALL  Val (S2 , ABSC) 

1867  CALL  Val (S3 .CELL) 

1868  CALL  Val (S4, CYCLE) 

1869  CALL  Val (S5, SAMPLE) 

1870  CALL  Val (S6, WAVE) 

1871  CALL  Val (S7, TIMER) 

1872  CALL  Val (S8 .TEMP) 

1873  CALL  Val (S9 , DI ST) 

1874  Y(I)  — ORD  !  Ordinate  And  Abscissa  Stored  In  Arrays 

1875  X( I )— ABSC  !  /CARY/  Variables  Return  Final  Reading 

1876  IF  (.NOT. PRINT)  CO  TO  100 

1877  WRITE  (1,*)  UP, ERASE, UP 

1878  WRITE  (1,40)  ORD, ABSC, CELL , CYCLE , SAMPLE , WAVE , TIMER , TEMP , DI ST 

1879  40  FORMAT  (F10 .4 , F10 . 2 , FS . 1 ,F6 . 1 , F7 . 1 ,F10 . 2 ,F8 . 1 ,F8 . 2 , F8 . 2) 

1880  100  CONTINUE 

1881  RETURN 

1882  999  WRITE  (1,*)  'Error  #',N,'  in  SUBROUTINE  Acquire' 

1883  RETURN 

1884  END 


Convert  ASCII  String  To  Numeric  Value  (10  Digits  Max'm) 


1885  C 

1886  C 

1887  C 

1888  C 

1889  C 

1890  C 

1891  C 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 


SUBROUTINE  Val (String.VALUE) 

INTEGER  DECPT , EXPON , LENSTR ,N , NUM( 10) 

REAL  VALUE 

DOUBLE  PRECISION  MULT , S 1GN , TEN , DECIMAL 

CHARACTER  Asc i i 

CHARACTER* ( * )  String 

LOCICAL  INTECER , TEST 

INTEGER-. TRUE. 

TEST-. FALSE.  !  Only  Used  For  Testing  The  Routine 

J-l 

K-0 

DECPT— 0 
SICN-1 .0 
TEN-10.0 
DECIMAL-0.0 
LENSTR-LEN (String) 

IF  (TEST)  WRITE  (1,*)  '  String  Number  -  String 
IF  (TEST)  WRITE  (1,*)  '  String  Length  -’.LENSTR 
DO  100  I -1 .LENSTR 
Asci i-Strlng( 1:1) 

N— ICHAR(Asci  i ) 

IF  ( (N. GE . 48) . AND. (N . LE . 57) )  GO  TO  20 
IF  (N.EQ.46)  INTEGER-. FALSE. 

IF  (N.EQ.46)  DECPT-K 
IF  (N.EQ.45)  SIGN— 1.0 
CO  TO  100 
20  NUM(J)-N-48 
K-J 
J-J+l 

100  CONTINUE 

IF  ((DECPT. EQ.0) .AND. (INTECEF))  DECPT-K 
DO  200  J-l ,K 
EXPON— DECPT - J 
MULT-TEN** EXPON 
DEC I MAL-DEC I MAL+NUM ( J ) *MULT 
200  CONTINUE 

VALUE-S I CN*DEC l MAL 

IF  (TEST)  WRITE  (1,*)  ’  Value  , VALUE 

RETURN 

END 


1932  C 

1933  C 

1934  C 

1935  C 

1936  C 

1937  C 

1938  C 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 


Convert  Number  To  ASCII  String 


SUBROUTINE  S t r (VALUE, St r i ng , PREC) 

INTEGER  ASCI  I , DECPT , I , J , LENSTR .NDIC1T , NUMBER, PREC 
REAL  VALUE 

DOUBLE  PRECISION  DECIMAL, FRACTION, TEN 
CHARACTER  Concat*14 , Di g i t ( 12) , S i gn , St r i ng*14 
LOGICAL  INTEGER, TEST 
INTEGER-. TRUE. 

TEST— .FALSE.  !  Only  Used  For  Testing  The  Routine 

DECPT-0 

J— 0 

TEN-10.0 
Sign-'  ' 

Concat  — '  1 

IF  (TEST)  WRITE  (1,*)  ’  Value  Entered  -  '.VALUE 
IF  (VALUE.LT. 0.0)  Sign-'-' 

IF  (VALUE. EQ. 0.0)  CO  TO  100 
DEC I MAL-ABS ( VALUE ) 

DO  WHILE  (DECIMAL. CE. 1 .0) 

DEC I MAL-DEC I MAL/TEN 
J-J+l 
END  DO 
DECPT— J 

IF  (TEST)  WRITE  (1,*)  '  #  of  Whole  Digits:  '.DECPT 
IF  (DECPT. EQ.0)  CO  TO  30 
DO  20  J-l, DECPT 

DEC I MAL-DEC I MAL*TEN 
NUMBER- I NT ( DEC I MAL ) 

ASCI I-NUMBER+48 
Digit (J)— CHAR (ASCI  I ) 

FRACT I ON- DEC I MAL - N UMB ER 

DEC IMAL-DI NT (FRACT I ON*TEN** ( PREC- J )  +  .  5 ) /TEN** ( PREC- J ) 

20  CONTINUE 

IF  ( .NOT. TEST)  CO  TO  30 

WRITE  (1,*)  '  The  Whole  Digits  -  '.(Digit(I),  1-1, DECPT) 

30  J-DECPT 

IF  (TEST)  WRITE  (1,*)  '  Decimal  Fraction  -  '.DECIMAL 
IF  (DECIMAL. NE. 0.0)  INTEGER-. FALSE. 

IF  (DECPT. CE. 12)  GO  TO  40 
DO  WHILE  (DECIMAL. NE. 0.0) 

J-J+l 

DEC I MAL- DEC I MA  L*T  EN 
NUMBER- 1 NT ( DEC  I MAL ) 

ASCI I-NUMBER+48 
Digit ( J)-CHAR(ASCI I) 

FRACT I ON-DEC I MAL -NUMBER 

DEC I MAL-D I  NT ( FRACT I ON*TEN** ( PREC- J ) + . 5 ) /TEN** ( PR  EC - J 1 
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1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 
2001 
2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 


IF  (DECIMAL. EQ. 1 .0)  THEN 
DIC1T(J)-CHAR(ASCI I+l) 

DECIMAL-0.0 
END  IF 

IF  (J.CE.12)  DECIMAL-0.0 

END  DO 
40  NDICIT-J 

IF  ( .NOT. TEST)  CO  TO  50 

WRITE  (1,*)  '  The  Characters  -  '.(Digit(I),  I-l.NDICIT) 
50  IF  (NDICIT.CT. 12)  CO  TO  200 
DO  60  1-1 .NDICIT 

Concat ( I : I )-Digi t ( I ) 

60  CONTINUE 

IF  (INTEGER)  CO  TO  80 
IF  (DECPT.EQ.O)  CO  TO  70 

S  t  r i ng-S i gn//Co  neat ( 1 : DECPT)//' . ' //Co  neat (DECPT+1 : 14) 
RETURN 

70  String-Sign//' . '//Concat 
RETURN 

80  String-Sign//Concat 
RETURN 

100  String-'  0.0' 

RETURN 

200  WRITE  (1,*)  '  Error  in  data:  (too  many  digits)' 

STOP 

END 


2011  C 

2012  C  - 

2013  C 

2014  C  Send  a  Command  String  To  CARY  2390 

2015  C 

2016  C  - 

2017  C 

2018  SUBROUTINE  Send(Command) 

2019  INTEGER  N 

2020  CHARACTER* ( * )  Command 

2021  CHARACTER  Response*64 

2022  LOGICAL  TEST 

2023  TEST— .FALSE.  !  Only  Used  For  Testing  The  Routine 

2024  IF  (TEST)  WRITE  (1,*)  ’  Command  -  ’ .Command 

2025  WRITE (UN IT-3 8 , FMT-*, IOSTAT-N , ERR-999)  Command 

2026  READ  (UNIT-38, FMT-10, IOSTAT-N, ERR-999)  Response 

2027  10  FORMAT  (A64) 

2028  IF  (TEST)  WRITE  (1,*)  ’  Response  -  '.Response 

2029  RETURN 

2030  999  WRITE  (1,*)  'Error  #',N,*  in  SUBROUTINE  Send' 

2031  RETURN 

2032  END 

2033  C 

2034  C  - 

2035  C 

2036  C  TERMINATE  Real  Time  Transmission  from  CARY  2390 

2037  C 

2038  C  . . . . 

2039  C 

2040  C  Send  UNTALK/UNLISTEN  -  to  IEEE-488  Bus 

2041  C 

2042  SUBROUTINE  Terminate 

2043  C  CALL  CMDW(35 0)  !  CMDW  occasionally  fails  to  UNADDRESS 

2044  CALL  ABRT(35,3)  !  The  ABRT  command  sends  reliably 

2045  RETURN 

2046  END 

2047  C 

2048  C  - 

2049  C 

2050  C  Wait  Specified  Delay  (sec) 

2051  C 

2052  C  - 

2053  C 

2054  SUBROUTINE  Wait (DELAY) 

2055  REAL  DELAY , PERIOD , Tzero , T ime 

2056  PERIOD-O.O 

2057  Tzero-Time( I ) 

2058  DO  WHILE  (PERIOD. LT. DELAY) 

2059  PERI OD-T i me ( I ) -Tzero 

2060  END  DO 

2061  RETURN 

2062  END 
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2063  C 

2064  C  - 

2065  C 

2066  C  Read  Time  (sec)  from  the  HP  1000' s  RTE-6  Operating  System 

2067  C 

2068  C  Note:  I  is  a  dummy  argument,  no  values  are  passed 

2069  C 

2070  C  - 

2071  C 

2072  REAL  FUNCTION  Time(l) 

2073  INTECER  ICODE, ITIME(5) 

2074  I CODE- 11 

2075  CALL  EXEC( ICODE, I  TIME) 

2076  T ime-FLOAT (ITIME(1))/100. 0+FLOAT ( ITIME(2) )+FLOAT( ITIME(3) )*60 . 0 

2077  &+FLOAT ( IT1ME(4) )*3600 . 0 

2078  RETURN 

2079  END 


